ParentFont und für embedded Forms

[Volker Z.]

Hallo,

es nützt Dir u. U. nichts nur die Eigenschaft ParentFont := True der "PluginForms" zu setzen. Die OH sagt dazu:

Zitat:

Ist die Eigenschaft ParentFont eines Formulars True, wird die Standardschriftart verwendet.

Mit Standartschriftart ist allerdings nicht die Schriftart des übergeordneten Steuerelements (in Deinem Fall des Panels) gemeint, sondern Application.DefaultFont bzw. DefFontData aus der Unit Graphics bei älteren Delphi Versionen.

Du kannst es so versuchen (wenn Application.DefaultFont existiert):

Delphi-Quellcode:

// auf den PluginForms die Eigenschaft ParentFont := True setzen und Parent "umhängen" wie gehabt. In Deinem MainForm
procedure TMainForm.Create (Sender : TObject);
begin
  Application.DefaultFont := Font
end;

oder (wenn Du eine ältere Delphiverison hast)

Delphi-Quellcode:

// ParentFont kannst Du dann vergessen. Du musst schon den Font explizit zuweisen
// Du wirst eine ähnliche Konstruktion haben über den Du Dein Parent übergibst
procedure TPluginForm.FormCreate(Sender: TObject);
begin
  Parent := MainForm.Panel1;
  Font   := MainForm.Font // oder MainForm.Panel1.Font
end;

Gruß