Einzelnen Beitrag anzeigen

Dezipaitor

Registriert seit: 14. Apr 2003
Ort: Stuttgart
1.701 Beiträge
 
Delphi 7 Professional
 
#3

Re: .... nochmals VirtualStringTree

  Alt 7. Okt 2004, 21:11
Delphi-Quellcode:
type
  tVSTData = record
  String1 : String;
  String2 : String;
  Zahl3 : Integer;
end;
zuallererst : Es fehlt ein Pointer auf die Struktur:
PVSTData = ^tVSTData; Dann musst du der VirtualTree Komponente sagen, wie groß die Struktur ist :

YourVTree.NodeDataSize := SizeOf(tVSTData); Dann kannst du einfügen
Delphi-Quellcode:
var Node : PVirtualNode;
    Data : PVSTData;
begin
  Node := YourVTree.AddChild(nil);

  Data := YourVTree.GetNodeData(Node);

  Data^.String1 := '123';
  ..
end;
das machst du immer so, wenn du was lesen oder ändern willst
Christian
Windows, Tokens, Access Control List, Dateisicherheit, Desktop, Vista Elevation?
Goto: JEDI API LIB & Windows Security Code Library (JWSCL)
  Mit Zitat antworten Zitat