Witam.
Jesttaka procedura:
var
I : Integer;
begin
for I:=0 to componentcount - 1 do
if components[i] is TLabel then
TPanel(components[i]).Caption := 'Cześć';
end;
Jak odwołaś sie do komponentów TLabel które maja nazwy :
U1, U2, U3, ... U20.
????????????????
THX
przede wszystkim tagi , potem nie TPanel(components[i]).caption, ale TLabel(components[i]).caption następnie jak znasz nazwy to po wała szukać? np U1.Caption:='Ulala'; a jak chcesz przy szukaniu to components[i].name
przede wszystkim tagi , potem nie TPanel(components[i]).caption, ale TLabel(components[i]).caption następnie jak znasz nazwy to po wała szukać? np U1.Caption:='Ulala'; a jak chcesz przy szukaniu to components[i].name
O co chodzi z "przede wszystkim tagi " Niekumem o co ci chodzi.
Musze to odwołanie sie do Labeli zrobic w pętli.
for i := 1 to 20 do
begin
U(i).Visible := False;
end;
Jak odwołac się do tych Labeli. Co zrobic z tym : U(i).Visible
Jak to zmienić.
THX
procedure TForm1.Button1Click(Sender: TObject);
var
I, N : Integer;
begin
N := 1;
for I := 0 to ComponentCount - 1 do
if (Components[i] is TLabel) and ((Components[I] as TLabel).Name = 'U' + IntToStr(N)) then
begin
TLabel(Components[i]).Visible := False;
Inc(N);
end;
end;
Widzisz czym sie rozni moj kod od Twojego? Moj wyglada jakbys pisal w Delphim a Twoj jakbys pisal normalnie na fotum;P Do tego sluzy tag .
hehe. Od razu lepiej.
Dzięki
A jak te Labele są na innej formie.
Jeżeli przycisk jest na Form1 a te Labele sa na Form2??
Gdzie w tym kodzie to trzeba uwzględnić??
THX
Form2.ComponentCount
Form2.Components[i]
Nie zapomnij dodac Unit2 (czy jak sie nazywa ten z Form2) to listy uses Unitu z Form1