Már biztosan megoldottad, de talán valakinek még jól jön ez a szösszenet. Az előbb írtam, most nem jut több az eszembe.
unit treeview;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, pqconnection, sqldb, FileUtil, LResources, Forms, Controls,
Graphics, Dialogs, ComCtrls, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Edit1: TEdit;
PQConnection1: TPQConnection;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
TreeView1: TTreeView;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
var gyoker,gyermek:Ttreenode;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
gyoker:=treeview1.items.add(nil,'gyökér');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
gyermek:=treeview1.items.addchild(gyoker,'első gyermek');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
gyermek:=treeview1.items.addchild(gyermek,'második gyermek');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
gyermek:=treeview1.items.addchild(treeview1.Selected,'új gyermek');
end;
procedure TForm1.Button5Click(Sender: TObject);
var
szoveg:string;
begin
szoveg:=edit1.text;
gyermek:=treeview1.items.addchild(treeview1.selected,szoveg);
end;
procedure TForm1.Button6Click(Sender: TObject);
var
I,j: Integer;
gyoker:TTreeNode;
gyerek:array[1..5] of TTreeNode;
begin
with treeview1.Items do
begin
gyoker:=Add(nil,'gyoker');
for I := 1 to 5 do
begin
gyerek:=AddChild(gyoker,inttostr(I));
// második szintű gyermekek létrehozása
for j:=1 to 3 do
AddChild(gyerek,inttostr(j));
end;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
sqlquery1.close;
sqlquery1.sql.clear;
sqlquery1.sql.add('select orszag_nev from elolenyek.orszag;');
sqlquery1.Open;
while not sqlquery1.eof do
begin
gyermek:=treeview1.items.addchild(treeview1.selected,sqlquery1.FieldByName('orszag_nev').AsString);
sqlquery1.next;
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
treeview1.items.Delete(treeview1.selected);
end;
initialization
{$I treeview.lrs}
end.
