was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

43 Visitors Online


 
...Spalten und Reihen eines Stringgrids verschieben?
Autor: P. Below
Homepage: http://www.teamb.com
[ Tip ausdrucken ]  

Tip Bewertung (12):  
     


{
  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:

  Der Benutzer kann Zeilen und Spalten eines TStringgrids mit der
  Maus verschieben.
  Die Frage: Kann man sie auch automatisch verschieben ?
  Das TCustomGrid besitzt die Mehtoden MoveColumn und MoveRow,
  aber diese Methoden sind versteckt beim Stringgrid.
  Wir können sie zugänglich machen, indem wir eine Subklasse vom
  TStringGrid erstellen und diese Methoden als public deklarieren.
}

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:

  Die Implementierung dieser Methoden besteht nur darin, dass
  die Methoden des Vorfahren aufgerufen werden:
}

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;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners