Zitat von
Christian18:
und wie komme ich wieder auf den Pointer raus den ich beim erzeugen setze???
Du 'castest' den Pointer wieder zurück in einen integer, das ist ja das praktische, daß sich die beiden Typen so schön gegenseitig 'mißbrauchen' können, so kann man umgekehrt zB auch in die Tag-property einer Komponente ein ganzes anderes Objekt 'reinhängen'.
Zitat von
Christian18:
EDIT: Hat jemand vieleicht auch ein paar Code schnipsel???
Bitt' schön:
Delphi-Quellcode:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var iKeyValue: integer;
begin
if Assigned(Node.Data) then
begin
iKeyValue := LongInt(Node.Data);
if (Node.Level = 1) then //gehört zu t1
t1.Locate('FeldNamePKt1',iKeyValue,[])
else if (Node.Level = 2) then //gehört zu t2
t2.Locate('FeldNamePKt2',iKeyValue,[]);
end;
end;
Dann mußt du in dem Gerüst natürlich noch deine Fokus-Wechsel und was du sonst noch so machen willst unterbringen.
peinhard