didiwerdau - Mi 20.09.06 13:33
Titel: Ich verzweifle mit TTreeView
Hallo,
Also ich habe eine Treeview, die ich aus einer Datenbank mit Werten füttere.
in der .Data Property speichere ich die ID des Datensatzes und eine Variable Typ.
Delphi-Quelltext
1:
2:
3:
4:
| TDatensatz = record
ID: string;
Typ: integer;
end; |
Dazu hab ich eine globale Variable
Delphi-Quelltext
1:
| Datensatz: ^TDatensatz; |
Das füllen der Treeview ist auch noch kein Problem.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| procedure TForm1.wsgQuery1AfterScroll(DataSet: TDataSet);
var node2, node3: TTreenode;
begin
treeview1.Items.Clear;
treeview1.Items.BeginUpdate;
while not wsgquery2.Eof do
begin
node2 := treeview1.Items.Addchild(nil, wsgQuery2.fieldByName('Bezeichnung').asstring);
node2.ImageIndex := 2;
node2.SelectedIndex := 0;
node2.Selected := true;
New(Datensatz);
Datensatz^.Typ := 2;
Datensatz^.ID := wsgQuery2.FieldByName('ID_Gewerk').AsString;
Node2.Data := Datensatz;
while not wsgquery3.Eof do
begin
node3 := treeview1.Items.Addchild(node2, wsgQuery3.fieldByName('Anfragedatum').asstring);
node3.ImageIndex := 3;
node3.SelectedIndex := 0;
node3.Selected := true;
New(Datensatz);
Datensatz^.Typ := 3;
Datensatz^.ID := wsgQuery3.FieldByName('ID_Anfrage').AsString;
Node3.Data := Datensatz;
wsgQuery3.next
end;
wsgQuery2.next;
end;
treeview1.Items.EndUpdate;
treeview1.FullExpand;
end; |
Die Probleme bekomme ich, wenn ich die Daten des gerade gewählten abfragen will.
Mit der folgenden Variante bekomme ich zwar ergebnisse, aber es sind nicht die richtigen. Der Typ wird nicht korrekt ausgegeben. Ich habe das gefühl, dass die Daten vom letzten bearbeiteten Knoten stammen. aber nicht vom aktuell gewählten.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
if assigned(Datensatz) then
begin
showmessage('JETZT!!! Changing');
showmessage(inttostr(Datensatz^.Typ));
if Datensatz^.Typ = 2 then
begin
showmessage(Datensatz^.ID);
end;
end
else
begin
showmessage('Noch nicht ...');
end;
end; |
Und wenn ich es so Versuche, bekomme ich eine Zugriffsverletzung
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if assigned(Datensatz) then
begin
showmessage('JETZT!!! Change');
showmessage(inttostr(TDatensatz(treeview1.selected.Data^).Typ));
if Datensatz^.Typ = 2 then
begin
showmessage(Datensatz^.ID);
end;
end
else
begin
showmessage('Noch nicht ...');
end;
end; |
Mein Ziel ist eigentlich beim anklicken eines Knotens auf den dazugehörigen Datensatz zu springen. Das sollte dann auch kein Problem sein, wenn mir die Treeview die richtigen Daten bereit stellt.
Bitte helft mir.
Danke