font im memo?

**tom_po**

wie kann ich eine memo mit meiner font-komponente definieren?

benutze diesen Code, aber ohne Erfolg:

Delphi-Quellcode:

			procedure Takn.Label5Click(Sender: TObject);

var i: integer;

begin

fontdialog1.Execute;

FontDialog1.Font := memo1.Font;

  for i := 0 to (memo1.ControlCount - 1) do

    if (memo1.Controls[i] is TButton) then

      (memo1.Controls[i] as TButton).Font :=

        FontDialog1.Font

end;

danach benutze ich eine tnpdf-komponente zur Darstellung im pdf-format. Aber der Font ändert sich nicht, wie definiert!!

font im memo?

font im memo?

Forumregeln