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!
