Treeview1 markierte Zeile (DblClick) in Edit1 kopieren

[Alterauge]

Hallo Volker,
im Edit wird nichts angezeigt bzw. kopiert?

[Volker Z.]

Hallo,

ich habe die test.txt so angelegt wie von Dir beschrieben. Bei mir funktionieren beide Versionen:

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;

Delphi-Quellcode:

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

Wobei Edit1.MaxLength := 7;

Gruß

[Alterauge]

Hey,
das glaube ich Dir!
Irgendetwas mache ich falsch!

Also habe ein TreeView1 !

Lade einen Textfile über Button4 ins TreeView1.

Delphi-Quellcode:

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

Jetzt wird diese Baumstrucktur im TreeView1 angezeigt!

Jetzt soll durch einen doppel Click, die markierte Zeile (ersten sieben Zeichen) ins Edit1 kopiert werden.
Bei mir passiert nix?

[Volker Z.]

Hallo,

ist es möglich etwas mehr Code zu zeigen, oder vielleicht besser noch die .pas und .dfm hochzuladen?

Gruß

[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;

[Volker Z.]

Hallo,

im Anhang mal ein kleines Projekt mit Deinen Angaben. Versuch doch mal das Projekt zu kompilieren (die test.txt ggf. ins entsprechende Verzeichnis kopieren) und dann schauen was bei einen Doppelklick passiert (bei mir gewünschtes Verhalten).

Gruß

[Alterauge]

So geht es jetzt:
Edit1.Text := Copy(TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text, 1, 7); Danke

[Volker Z.]

Hallo,

an was lag es dann letztlich? Edit1.MaxLength = 0 , oder (kann ich mir zwar nicht vorstellen) Assigned (TreeView1.Selected) = False ?

Gruß