Hallo,
ich habe ein Problem beim Anklicken eines Knoten in einem TreeView möchte ich das Object was an TreeView.Data hängt wieder auslesen. Nun ist es egal welchen Konten ich anklicke, es wird immer im Data das letzte Object zurückgegeben. Woran kann es liegen, was machen ich falsch?
Delphi-Quellcode:
procedure TForm1.TreeView1Click(Sender: TObject);
var MSBez3: TMSV1;
strTest: string;
Index: integer;
begin
MSBez3:= TMSV1.Create;
MSBez3:= TMSV1(TreeView1.Selected.Data); // <---- Es wird immer das letzte Object zurückgegeben?!
If msBez3 <> NIL then
begin
ShowMessage(MSBez3.MaNr+MSBez3.MSNr+MSBez3.MaInhalt+TreeView1.Selected.Text);
end;
end;
Die Adresse in Data ist immer die gleiche.
Mit
TreeView1.Selected.Text
wird der richtige Text vom angeklickten Knoten zurückgegeben!
Bis bald Chemiker