15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как перемещать строки и колонки в StringGrid.

Компилятор: Delphi

Пользователь может перемещать строки и колонки StringGrid при помощи мышки. Можно ли это сделать программно? В описании TCustomGrid можно увидеть методы MoveColumn и MoveRow, однако они скрыты в TStringGrid. Но нам ничего не мешает просабклассить TStringGrid и объявить эти методы как public:

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

Чтобы воспользоваться этими методами, достаточно вызвать соответствующий метод предка:

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

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

Этот компонент не нужно регистрировать в палитре компонентов. Просто используйте потомка TStringGrid или любого TCustomGrid, и вызывайте его методы:

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