Posts: 42
Threads: 20
Joined: Jul 2020
Reputation:
0
Hello,
i don't arrive solve my problem,
i think is simple,
just when i click on dbgrid select the row
thank's a lot for your help
best regards
Posts: 114
Threads: 32
Joined: Dec 2019
Reputation:
1
Location: Россия
In Properties:
dgTails.columns[1].LinkField := KLY;
and
procedure TfmTail.dgTailsColumns1Click(ASender: TObject; const AValue: string);
begin
with dmTail do
begin
if tTails.FieldByName('KLY').AsString = AValue then
begin
btPlanClick(ASender);
end else begin
tTails.First;
while not tTails.Eof do
begin
if tTails.FieldByName('KLY').AsString = AValue then break;
tTails.Next;
end;
end;
end;
end;
Posts: 42
Threads: 20
Joined: Jul 2020
Reputation:
0
08-12-2020, 04:48 PM
(This post was last modified: 08-12-2020, 05:29 PM by softdev85.)
Hello,
thank you very mutch that work very well
Thank's a lot.
do you knwon if it's possible to change row color on row select ?
Thank's a lot for your help
best regards
hello,
here the solution that work well for information in future
procedure TIWFormModifTache.IWDBGridListeTachesRenderCell(ACell: TIWGridCell;
const ARow, AColumn: Integer);
begin
// -1 is Footer Row
if ARow = -1 then
begin
ACell.BGColor := clSilver;
if AColumn = 0 then
begin
ACell.Font.Color := clRed;
ACell.Text := IntToStr(IWDBGridListeTaches.RecordCount);
end;
end
else if IWDBGridListeTaches.RowIsCurrent then
begin
ACell.BGColor := clYellow;
end;
end;