TreeView:einträge selbst speichern

[mimi]

@marabu
besten dank hat funktioniert:

Delphi-Quellcode:

procedure TForm5.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   s:=TreeView1.GetNodeAt(x,y);
   TreeView1.Selected:=s;
   if s <> nil then
     Label2.Caption:=TreeNodePath(s,'\')
   else
     label2.Caption:='';
end;

Zum speichern und laden nutze ich einfach diese funktionen:

Delphi-Quellcode:

procedure LoadTreeFromFile(TreeView:TTReeView;FileName:TFileName);
var
  F: TFileStream;
begin
  F := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    F.ReadComponent(TreeView);
  finally
    F.Free;
  end;
end;

procedure SaveTreeToFile(TreeView:TTReeView;FileName:TFileName);
var
  F: TFileStream;
begin
  F := TFileStream.Create(FileName, fmCreate or fmShareCompat);
  try
    F.WriteComponent(TreeView);
  finally
    F.Free;
  end;
end;

von: http://www.swissdelphicenter.ch/

edit: ich glaube ich habe jetzt ein anders problem: und zwar beim meinem TMenuitem !