Окрашивание выделенной записи в компоненте DBGrid - Delphi

procedure TFindCompany.sDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);

begin

if ((State = [gdSelected] ) or (State = [gdSelected, gdFocused])) then

begin

TDBGrid(Sender).Canvas.Brush.Color :=RGB(198, 243,245);

// нажатии на ячейку

TDBGrid(Sender).Canvas.Font.Color:=ClRed;

with sDBGrid1.Canvas do
begin

Font.Color := clBlack;
FillRect(Rect);
TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.