TreeView - Werte zum Item speichern

[marabu]

Hallo,

besser so:

Delphi-Quellcode:

procedure TFRM_AM_Administration.Button20Click(Sender: TObject);
var 
  pElement: TElementPointer;
begin
  if Assigned(TreeView.Selected) and Assigned(Treeview.Selected.Data) then
  begin  
    pElement := TreeView.Selected.Data;
    ShowMessage(IntToStr(pElement.DBKey));
  end;
end;