Virtual TreeView Nodes anzeigen verbergen

[Jens Hartmann]

Mit dieser Funktion, führst du einen Vergleich durch.

Delphi-Quellcode:

//Das ist eigendlich jetzt die komplette Variante aus dem Video, hier die Suchfunkion
//eine Methode vom VST und verglichen wird die Eingabe aus dem Edit. (siehe Edit.Change)
procedure TFDatenauswertung.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean); 
var 
  Daten : TOAUMB256PLUS; 
begin 
  Daten := TOAUMB256PLUS(VST.GetNodeData(Node)^); 
  VST.IsVisible[Node] := (EDManFilter.Text='') or (pos(EDManFilter.Text, Daten.Ereignis)>0); 
end;


//Hier wird z.B. wie im Video die Eingabe in einem Edit als Suche verwendet

procedure TForm1.Edit1Change(Sender: TObject);
begin
  VST.IterateSubtree(nil, SucheCallback, nil);   //Durch die Eingabe im Edit wird die Suchfunktion aktiviert
end;

Gruß Jens