Позиция ячейки в TDBGrid

Delphi , Компоненты и Классы , TDBGrid

В TCustomGrid определен метод CellRect, который, к сожалению, защищен. Это означает, что даный метод доступен только для TCustomGrid и его наследников. Но все-таки существует немного мудреное решение вызова данного метода:

type
  TMyDBGrid = class(TDBGrid)
    public
      function CellRect(ACol, ARow: Longint): TRect;
  end;

function TMyDBGrid.CellRect(ACol, ARow: Longint): TRect;
begin
  Result := inherited CellRect(ACol, ARow);
end;

Вы можете сделать приведение типа вашего DBGrid к TMyDBGrid (это возможно, поскольку CellRect статический метод) и вызвать CellRect:

Rectangle := TMyDBGrid(SomeDBGrid).CellRect(SomeColumn, SomeRow);

procedure TfmLoadIn.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
const
  Disp = 2; //Правильно выравниваем компонент
begin
  inherited;
  if (gdFocused in State) then
  begin
    if (Column.FieldName = 'TYPEDescription') then
    begin
      dlTYPEDescription.Left := Rect.Left + DBGrid1.Left + Disp;
      dlTYPEDescription.Top := Rect.Top + DBGrid1.top + Disp;
      dlTYPEDescription.Width := Rect.Right - Rect.Left;
      dlTYPEDescription.Height := Rect.Bottom - Rect.Top;
      dlTYPEDescription.Visible := True;
    end;
  end;
end;

Вот перевод на русский язык:

Рассказ о моих приключениях с женщинами и технологиями! 😄

Теперь давайте сфокусируемся на коде.

Вы пытаетесь доступиться к методу CellRect компонента TDBGrid, который защищен. Вы создали обертку класса TMyDBGrid, которая наследуется от TDBGrid и предоставляет публичный доступ к методу CellRect.

Чтобы использовать этот обертку, вам нужно кастовать ваш компонент TDBGrid в TMyDBGrid. Это возможно потому, что CellRect - статический метод, то есть он может быть вызван без экземпляра класса.

В вашем коде вы пытаетесь сделать именно это:

Rectangle  := TMyDBGrid(SomeDBGrid).CellRect(SomeColumn, SomeRow);

Это должно работать, если SomeDBGrid - экземпляр TMyDBGrid или его потомков.

Теперь давайте перейдем к процедуре DBGrid1DrawColumnCell. Вы пытаетесь корректировать позицию контрола (dlTYPEDescription) внутри ячейки rectangle в зависимости от того, фокусирован ли столбец и соответствует ли он конкретному имени поля.

Ваш код кажется правильным, но у меня есть несколько предложений:

• Вместо жесткого кодирования значения Disp (2)consider making it a variable or property of your form. Это позволит вам легко изменить значение смещения без изменения кода.
• В блоке if Column.FieldName = 'TYPEDescription' then вы доступитесь к свойствам Left, Top, Width и Height контрола dlTYPEDescription. Убедитесь, что эти свойства правильно настроены перед присваиванием им значений.
• В целом, ваш код выглядит хорошо, но я рад помочь с любыми дальнейшими вопросами или проблемами! 😊

В статье рассматривается способ вызова метода CellRect в TDBGrid, а также пример его использования в процедуре DrawColumnCell для корректного выравнивания компонента в ячейке таблицы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::