Durch klick auf TTreeView in Tabelle DS Positionieren

[Peinhard]

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