Das Font-Property auf alle Unterelemente mappen

[valon]

Hallo Leute !
Ich habe ein Problem. Ich habe hier ein Teil aus einer Aufgabenstellung wo ich nicht weiterkomme.
Ich soll aus einem anderen Formular über Propertys die Fonts des anderen Formulars ändern können.

Teil der Aufgabenstellung:

"Das Font-Property wird auf alle Unterelemente des Dialogs gemappt, d.h. eine Änderung des
Fonts bewirkt bei allen Elementen eine Änderung des Fonts. Schriftgrößen und –styles werden
innerhalb des Dialogelements entsprechend automatisch angepaßt."

Ich habe keine Ahnung wie das Font Property auf alle Unterelemente gemappt werden kann.
Ich hoffe ihr könnt mir helfen.

danke

[Sharky]

Hai valon,

ich habe es mir jetzt nicht angesehen. Aber standardmässig haben ja alle Objekte die eingestellt das sie den Font des Parents übernehmen sollen. Jetzt müsstest Du also nur noch das "Font-Property" der Form ändern.

[Leuselator]

Schau Dir auch mal das Property "Controls" an - damit kannst Du alle Controls des Formulars rekursiv durchlaufen und das Fonts-Property setzen z.B.:

Delphi-Quellcode:

procedure SetFont(OfControl : TControl; ToFont: TFont);
var i : Integer;
begin
  for i := 0 to OfControl.ControlCount-1 
    do SetFont(OfControl.Controls[i],ToFont);
  OfControl.Font.Assign(ToFont);
end;
// Code aus Gedächtnis - evtl. Tippfehler korrigieren.

Gruß