|
Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
Delphi 8 Architect
|
Re: Das Font-Property auf alle Unterelemente mappen
11. Okt 2004, 10:18
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ß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
|