Перемещение колонок в TDBGrid

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   THackAccess = class(TCustomGrid);

 { 
  THackAccess Is needed because TCustomGrid.MoveColumn is 
  protected and you can't access it directly. 

  THackAccess Braucht man, da TCustomGrid.MoveColumn in der 
  Protected-Sektion steht und nicht direkt darauf zugegriffen werden kann. 
}

 // In the implementation-Section: 

procedure MoveDBGridColumns(DBGrid: TDBGrid; FromColumn, ToColumn: Integer);
 begin
   THackAccess(DBGrid).MoveColumn(FromColumn, ToColumn);
 end;


 {Example/ Beispiel}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   MoveDBGridColumns(DBGrid1, 1, 2)
 end;

Код, предоставленный ниже, является обходом для перемещения столбцов в компоненте TDBGrid в Delphi. Класс THackAccess используется для доступа к защищенному методу MoveColumn класса TCustomGrid.

Вот разбор кода:

1. Класс THackAccess наследуется от TCustomGrid. Это необходимо потому, что метод MoveColumn является защищенным в классе TCustomGrid, и мы должны получить прямой доступ к нему.
2. Процедура MoveDBGridColumns принимает три параметра: DBGrid, FromColumn и ToColumn. Она использует класс THackAccess для перемещения столбца с индексом FromColumn на позицию столбца с индексом ToColumn.
3. В примере кода обработчик события Button1Click вызывает процедуру MoveDBGridColumns с DBGrid1, 1 и 2 как аргументами. Это переместит столбец с индексом 1 на позицию столбца с индексом 2.

Альтернативное решение может быть использованием события ColumnMoved компонента TDBGrid. Вот пример:

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; ColumnIndex: Integer;
  NewIndex: Integer);
begin
  // Переместить столбец на старой позиции на новую позицию
  DBGrid1.Columns.Move(ColumnIndex, NewIndex);
end;

В этом примере, когда столбец перемещается, обработчик события DBGrid1ColumnMoved будет перемещать столбец на его новую позицию. Этот подход более элегантен и легче использовать, чем метод hack класса.

Перемещение колонок в TDBGrid: демонстрируется пример кода на языке Delphi для перемещения колонок в компоненте TDBGrid с использованием хаки THackAccess.

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

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

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