schriftarten durchschalten

[Christian18]

Hi,

ich habe das Problem mal so gelösst.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var s : String;
      i : Integer;
begin
  s:='Dein Text kommt hier rein';

  for i:=1 to Screen.Fonts.Count - 1 do
    begin
      RichEdit1.Lines.Add(s);
      RichEdit1.SelAttributes.Name:=Screen.Fonts.Strings[i];
    end;
end;

PS: Ich hoffe ich konnte dir weiterhelfen. Und Herzlich Wilkommen erst mal.

MFG Christian18