Verschieben von Zeilen und Spalten mit einem Stringgrid durch code

Verschieben von Zeilen und Spalten mit einem Stringgrid durch code

Verschieben von Zeilen und Spalten mit einem Stringgrid durch code : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

So, MoveColumn und gemachten MoveRow öffentlichen ohne Installation einer neuen Komponente
Verschieben von Zeilen und Spalten mit einem StringGrid durch code
Der Benutzer kann die Zeilen und Spalten mit einem StringGrid mit der Maus verschieben. Kann es auch durch Code erfolgen? In der Hilfe für TCustomGrid können Sie die Methoden MoveColumn und gemachten MoveRow sehen, aber sie sind versteckt in TStringGrid. Wir können ihnen wieder zugänglich durch Unterklassen TStringGrid und diese Methoden als public deklarieren:
type
    TStringGridX = class(TStringGrid)
    public
      procedure MoveColumn(FromIndex, ToIndex: Longint);
      procedure MoveRow(FromIndex, ToIndex: Longint);
    end;
Die Umsetzung dieser Methoden besteht einfach aus den Aufruf der entsprechenden Methode des Vorgängers:
procedure TStringGridX.MoveColumn(FromIndex, ToIndex: Integer);
  begin
    inherited;
  end;
  procedure TStringGridX.MoveRow(FromIndex, ToIndex: Integer);
  begin
    inherited;
  end;
Du musst diese Komponente in der Komponenten-Palette zu registrieren. Verwenden Sie ein TStringGrid oder jeder TCustomGrid-Nachkomme, und wenn Sie diese Methoden aufrufen müssen einfach wandeln Sie das Objekt in die neue Klasse. Zum Beispiel:
procedure TForm1.Button1Click(Sender: TObject);
  begin
    TStringGridX(StringGrid1).MoveColumn(1, 3);
  end;
Den vollständigen Quellcode dieses Artikels finden im Archiv Sie, die begleitet die Pascal Newsletter #25