Topic: [решено] Размер Label
на форме есть разные Label
но мне нужны Label.Parent:=TScrollBox;
можно-ли обработать Tlabel только в TScrollBox ? у меня получается только по всей форме..
procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
i:integer;
begin
for i:=0 to Form1.ComponentCount -1 do
IF Form1.Components[i] is TLabel Then TLabel(Form1.Components[i]).Font.Size:=TLabel(Form1.Components[i]).Font.Size +1;
end;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
i:integer;
begin
for i:=0 to Form1.ComponentCount -1 do
IF Form1.Components[i] is TLabel Then TLabel(Form1.Components[i]).Font.Size:=TLabel(Form1.Components[i]).Font.Size -1;
end;