Moin,
wenn du einen Namen und eine Msg in deinem Chat-Fenster formatiert anzeigen willst, dann baust du dir eine Routine, die genau das tut - nicht mehr und nicht weniger:
Delphi-Quellcode:
procedure AddMessage(re: TRichEdit; const name, msg: string);
begin
re.SelStart := MaxInt;
re.SelAttributes.Color := clGray;
re.SelAttributes.Style := [fsBold];
re.SelText := '>> ';
re.SelAttributes.Color := clBlack;
re.SelAttributes.Style := [fsBold, fsItalic];
re.SelText := name + ' ';
re.SelAttributes.Color := clGray;
re.SelAttributes.Style := [fsBold];
re.SelText := msg + sLineBreak;
end;
Grüße vom marabu