Jak odwołać sie do wszystkich LABELI na PANELU???????

0

Jak w temacie . THX {glowa} {glowa}

0

Powstałe w oparciu o post:
http://www.4programmers.net/f[...].php?action=show&id=13149

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
for x:=1 to ComponentCount-1 do
if (Components[x] is TLabel) and (Components[x].GetParentComponent=Panel1) then TImage(Components[x]).Visible:=false;

end;

Z braku lepszych propozycji po prostu je ukrywa.--, tradycyjnie pozdrawiam - Numi.

0

To znaczy głównym elementem jest Components.GetParentComponent - jak chyba już zauważyłeś. Po prostu ustawiasz na Panel i już - masz które sa na panelu. Z góry przepraszam za tak długi okres zwłoki - zanim włączyłem Delphi i sprawdziłem czy to działa trochę się zeszło :-)--, tradycyjnie pozdrawiam - Numi.

0

tylko dla formalności - no bo ile można na ten sam temat gadać?

W lince gdzie jest TImage(Components[x]).Visible:=false; możesz wstawić TLabel(Components[x]) i wtedy odwołujesz się do komponentu jak do normalnego labela - to tak dla informacji.--, tradycyjnie pozdrawiam - Numi.

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