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