• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 590
  • Last Modified:

TComponent(TLabel change font size)

Hi

I want to change all my Tlabel's font size to 9. How can I do that instead of going to each labels and change its property field. Each label have different names.. so I can use the FindComponent

ex.
var
  i: Integer;
begin
  for i := 1 to 20 do begin
    with TLabel(FindComponent(Label + IntToStr(i))) do
      Font := 9;
  end;

Many thanks and cheers,
mha
0
michaenh
Asked:
michaenh
  • 2
1 Solution
 
geobulCommented:
Hi,

 Try this:

var i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do begin
    if (Form1.Components[i] is TLabel) then
      (Form1.Components[i] as TLabel).Font.Size := 15;
  end;
end;

Regards, Geo
0
 
michaenhAuthor Commented:
Thanx.

You are the greatest!
:) cheers

mha
0
 
geobulCommented:
The pleasure was mine :-)
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now