Zaubern mit TTreeView

[taaktaak]

Moin, Moin.

Mit TTreeView kann man ein kleines Zauberkunststück vorführen!

Ja, das ist nicht übertrieben. Man benötgt nur sehr wenige Zutaten: Ein Formular, ein TTreeView mit einigen Items und einen Button. Im OnCreate scheibt man einige wenige Items in das TreeView, das OnClick des Buttons verbindet man mit

Delphi-Quellcode:

procedure TfoTest3.Button1Click(Sender: TObject);
begin
  TreeView1.AlphaSort(true);
end;

Um das Zauberhafte deutlich zu machen, starten wir jetzt das Programm und betätigen mehrmals den Button. Falls das Tree unsortiert gefüllt wurde, wird es mit dem ersten ButtonClick sortiert - danach ist aber keine Veränderung mehr zu erkennen - logisch!

Nun wird das Programm erweitert und der eigentliche Trick eingebaut: Wir verbinden das OnCompare-Event des TreeView mit folgender LEEREN Prozedur

Delphi-Quellcode:

procedure TfoTest3.TreeView1Compare(Sender: TObject; Node1,
  Node2: TTreeNode; Data: Integer; var Compare: Integer);
begin
  // notwendig, damit ich nicht sofort wieder 'rausgeschmissen werde 
end;

Nun starten wir erneut das Progrmm und können die kleine Zauberei vorführen: Mit jedem Click auf den Button ändert sich die Sortierrichtung im TreeView - voila!