Strings des letzten TreeView Knoten mit allen Children in ein Richedit schreiben

[Ajintaro]

Hi DP !

Vielen Dank für die Antworten. Um das ganze mit dem RichEdit mal aufzulösen: ich benutze in der Tat Formatierungen, welche per Copy/Paste mit Übertragen werden. Dazu nutze ich diese Prozedur:

Delphi-Quellcode:

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//Richedit message
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure AddMessage(re: TRichEdit; const betreff, msg: string);
begin
  re.SelStart := MaxInt;
  re.SelAttributes.Color := clNavy ;
  re.SelAttributes.Style := [fsBold];
  re.SelText := '___________________________________________________________'+ sLineBreak;
  re.SelAttributes.Color := clNavy ;
  re.SelAttributes.Style := [fsBold];
  re.SelText := 'Version '+vers+ ' <yourname>, '+DateTimeToStr(now)+ sLineBreak;
  re.SelAttributes.Color := clGreen;
  re.SelAttributes.Style := [fsBold, fsItalic];
  re.SelText := betreff+ sLineBreak;
  re.SelAttributes.Color := clBlack;
  re.SelText := msg + sLineBreak;
  re.SelAttributes.Color := clBlack;
end;

Aber wirklich ganz toll ist:

Delphi-Quellcode:

function GetLastRootNode

! Damit kann ich wirklich die letzte RootNode ansprechen!