Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#2

AW: ParentFont und für embedded Forms

  Alt 28. Jun 2013, 01:58
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ß
Volker Zeller
  Mit Zitat antworten Zitat