Nodelara data eklerken PChar kullanmayın çünkü her node'da datanın aynı boyutta olması lazım. onun yerine
type
TNodeData = class
Adi :String;
Soyadi : String;
end;
buna benzer bir sınıf tanımlayın. Daha sonra
node.Data := TNodeData.Create;
with TNodeData(node.Data) do begin
Adi := 'adi';
Soyadi := 'soyadi';
end;
gibi bir kodla data bağlayabilirsiniz. hatta alan sayısını istediğiniz kadar artturabilirsiniz. Yalnız bu yarattığınız sınıfları hafızadan silmeyi atlamamnız lazım. Bunu da TreeView'in OnDelete olayını kullanarak yapabilirsiniz.
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
if assigned(Node.Data) then begin
TNodeData(Node.Data).Free;
Node.Data:=nil;
end;
end;
type
TNodeData = class
Adi :String;
Soyadi : String;
end;
buna benzer bir sınıf tanımlayın. Daha sonra
node.Data := TNodeData.Create;
with TNodeData(node.Data) do begin
Adi := 'adi';
Soyadi := 'soyadi';
end;
gibi bir kodla data bağlayabilirsiniz. hatta alan sayısını istediğiniz kadar artturabilirsiniz. Yalnız bu yarattığınız sınıfları hafızadan silmeyi atlamamnız lazım. Bunu da TreeView'in OnDelete olayını kullanarak yapabilirsiniz.
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
if assigned(Node.Data) then begin
TNodeData(Node.Data).Free;
Node.Data:=nil;
end;
end;
Hocam node.data örneği için teşekkürler.İşimi gördü :)
Lakin önceden tavsiye ettiğiniz stream nesnesiyle uğraşırken TStream'de savetofile gibi bir metodunu göremedim.Helpten baktığımda savetofile metodu olan bi TMemoryStream vardı bende
var
a:TMemoryStream;
begin
a:=tMemoryStrem.create;
Treeview1.SaveToStream(a);
a.SaveToFile('c:\stream.txt');
a.free;
şeklinde bişeyler yazdım.Ama treeview'in kendi savetofile metodundan bir farkı yok direk text değerlerini saklıyor.Sanırım stream yerine memory stream kullandığımdan ötürü oldu.Tstream nesnesini direk diske nasıl kaydedebilirim.(Programcılıkta yeni sayılırım daha önce tstream kullanmamıştım.)
Virtual Tree Viewde verdiğiniz örnektekine benzer AddChild fonksiyonu var.
VAR
VTNode : PVirtualNode;
begin
VTNode := VirtualStringTree1.AddChild(VirtualStringTree1.RootNode);
VirtualStringTree1.AddChild(VTNode);
end;
ama bu kullanım önerilen yöntem değil. Onun yerine OnInitNode, OnInitChildren olaylarına kod yazarak bu işin yapılması isteniyor.
Mesela, master tablodaki kadar kayıt eklemek için
VirtualStringTree1.RootNodeCount := tblMaster.RecordCount;
kullanabilirsiniz. Bu durumda master tabloda kaç kayıt varsa onun kadar node eklenecek ve hemen onInitNode olayına yazdığınız kod çağrılacak. Örneğin
procedure TForm1.VirtualStringTree1InitNode(Sender: TBaseVirtualTree;
ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
begin
// bu node'un childnode'u olduğunu berlitmek için
InitialStates := InitialStates + [ivsHasChildren];
end;
procedure TForm1.VirtualStringTree1InitChildren(Sender: TBaseVirtualTree;
Node: PVirtualNode; var ChildCount: Cardinal);
begin
ChildCount := 5;
end;
yazın ve açıldıkça açıldığını görün :)
Hocam göremedim
Biraz daha çalışmam lazım Virtual Treeview üzerine.
Tekrar teşekkürler hocam.
Not:Bu arada Virtual Treeview baya gelişmiş bir bileşen.Delphi'de olmayan birçok bileşenin(Object inspector,Quantumgrid tarzı grid vs..) yerine geçebilecek kadar ayrıntılı.