Treeview1 markierte Zeile (DblClick) in Edit1 kopieren

[Alterauge]

Hier der Quelltext zum Hochladen

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
TreeView1.LoadFromFile('c:\Alarmgeber\Test.txt');
end;

Hier der Quelltext um die Datei zu bearbeiten:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
 Shellexecute(form1.handle,nil,'NOTEPAD.EXE','C:\Alarmgeber\Test.txt','',1);
end;

Mehr Quelltext ist nicht vorhanden!
Halt noch die Komponente TreeView1, Edit1, Button

Hier der Quelltext der mich ärgert:

Delphi-Quellcode:

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  if Assigned (TreeView1.Selected) then
    Edit1.Text := Copy (TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text, 1, Edit1.MaxLength);
end;