Das Font-Property auf alle Unterelemente mappen

Thema durchsuchen

Ansicht

Themen-Optionen

Das Font-Property auf alle Unterelemente mappen

Ein Thema von valon · begonnen am 11. Okt 2004 · letzter Beitrag vom 11. Okt 2004

Vorheriger Beitrag

Nächster Beitrag

Leuselator

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, 09: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.:

markieren

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...