Hallo Michael,
Zitat von
Neutral General:
...
Diesen Thread habe ich schon gesehen, aber der hilft mir nicht weiter. ...
manchmal musst du gefundenen Code etwas anpassen:
Delphi-Quellcode:
procedure TDemoForm.AppendButtonClick(Sender: TObject);
begin
with RichEdit do
begin
SelStart := MaxInt;
SelText := '{\rtf1\ul Hi \ulnone Neutral General}';
Lines.Add('');
end;
end;
Freundliche Grüße