Перетащить колонки и строки в StringGrid

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

{ 
  The user can move rows and columns of a StringGrid with the mouse. 
  Can it also be done by code? 
  In the help for TCustomGrid you can see the methods MoveColumn and MoveRow, 
  but they are hidden in TStringGrid. 
  We can make them accessible again by subclassing TStringGrid and 
  declaring these methods as public: 
} 

type 
  TStringGridHack = class(TStringGrid) 
  public 
    procedure MoveColumn(FromIndex, ToIndex: Longint); 
    procedure MoveRow(FromIndex, ToIndex: Longint); 
  end; 

{ 
  The implementation of these methods simply consists of invoking the 
  corresponding method of the ancestor: 
} 

procedure TStringGridHack.MoveColumn(FromIndex, ToIndex: Integer); 
begin 
  inherited; 
end; 

procedure TStringGridHack.MoveRow(FromIndex, ToIndex: Integer); 
begin 
  inherited; 
end; 


// Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  TStringGridHack(StringGrid1).MoveColumn(1, 3); 
end;

Программный код, позволяющий программно перемещать строки и столбцы в контроле StringGrid.

Вот как это работает:

1. Создается новый класс TStringGridHack, который является подклассом TStringGrid. Это позволяет доступ к скрытым методам MoveColumn и MoveRow.
2. Метод MoveColumn реализуется путем вызова наследуемого метода из предка.
3. Метод MoveRow также реализуется аналогично.
4. В примере обработчик события клика кнопки вызывает TStringGridHack.MoveColumn(1, 3) для перемещения столбца 1 на позицию 3.

Основная идея этого кода заключается в том, что контрол StringGrid не имеет прямого доступа к внутренним методам для перемещения строк и столбцов. Подклассируя его, мы можем снова сделать эти методы доступными. Это позволяет программно перемещать строки и столбцы в grid, что может быть полезно в определенных ситуациях.

Вот как можно использовать этот код:

1. Создайте новый формат с контролом StringGrid и кнопкой.
2. Добавьте файл TStringGridHack в ваш проект.
3. В событии OnCreate формы присвойте класс TStringGridHack контролу StringGrid: pascal StringGrid1.GridClass := TStringGridHack;
4. Теперь вы можете использовать методы MoveColumn и MoveRow в вашем коде.

Вот пример, как можно модифицировать этот код для перемещения строк:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TStringGridHack(StringGrid1).MoveRow(1, 3);
end;

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

Помните, что при перемещении строк или столбцов grid не перемещает данные автоматически. Если у вас есть важные данные в grid, вам нужно самостоятельно обработать это.

В статье описывается способ программного переноса колонок и строк в StringGrid с помощью наследования от класса TStringGrid и объявления методов MoveColumn и MoveRow как публичных.

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

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

:: Главная :: TStringGrid и TDrawGrid ::