Wielkość dla wszystkich

0

Witam szanownych kolegów.
Mam pytanko:
Jak mam zmienić wielkość czcionki dla wszystkich komponentów TLabel znajdujących się na formie. O ile zmiana wartości TRUE,FALSE np Visible nie stanowi większego problemu to przypisanie komponentom konkretnej wartości integer, string czy color stanowi dla mnie zagadkę. Jeśli ktoś z Was wie jak tego dokonać to będę wdzięczny.
Pozdrawiam.

0

No co za problem... Sposób działania na właściwościach odpowiednich komponentów był już nie raz omawiany:

var
 i: integer;
 czcionka: TFont; //lub Font
begin

 //ustawienia czcionki

 for i:=0 to componentCount-1 do
      if (components[i] is TLabel) then (components[i] as TLabel).Font:=czcionka;
end;
0

Wielkie dzięki!
Mam jeszcze jedno małe pytanko.
Wktórym miejscu tego kodu wpisać rozmiar tej czcionki np 9. czcionka.size:=9;?

Pozdrawiam

0

Wszystkie właściwości wpisujesz tak :

if (components[i] is TLabel) then (components[i] as TLabel).Wlasciwosc := Wartosc

Czyli :

if (components[i] is TLabel) then (components[i] as TLabel).Font.Size:=9;
0

Jeszcze raz wielkie dzięki!

1 użytkowników online, w tym zalogowanych: 0, gości: 1