Делфи Dbgrid Выделенная Ячейка

DBGrid в Delphi - это компонент, который позволяет отображать данные из базы данных в виде таблицы. В DBGrid есть возможность выделить ячейку, но по умолчанию она не выделяется.

Чтобы реализовать выделение ячейки в DBGrid, необходимо создать обработчик события OnDrawColumnCell и использовать свойство Selected в объекте DBGrid:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then
  begin
    DBGrid1.Canvas.Brush.Color := clHighlight;
    DBGrid1.Canvas.Font.Color := clHighlightText;
    DBGrid1.Canvas.FillRect(Rect);
    DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.DisplayText);
  end
  else
  begin
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

В этом примере мы проверяем состояние ячейки (State) на наличие флага gdSelected и, если ячейка выделена, то рисуем ее с другим цветом. Если же ячейка не выделена, мы используем метод DefaultDrawColumnCell для отрисовки ячейки по умолчанию.