Einzelnen Beitrag anzeigen

Alterauge

Registriert seit: 4. Mär 2011
306 Beiträge
 
Delphi 2010 Professional
 
#15

AW: Treeview1 markierte Zeile (DblClick) in Edit1 kopieren

  Alt 8. Mai 2013, 23:45
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;

Geändert von Alterauge ( 8. Mai 2013 um 23:47 Uhr)
  Mit Zitat antworten Zitat