Label na panelu i zarzadzanie labelem

0

Witam
Jak zawsze mam dziwny kłopot mianowicie tworzę sobie labele na panelach:

 with TLabel.Create(self.FindComponent('Panel'+inttostr(y)+'_'+inttostr(x))) do begin         
            Left:=33;
            top:=10;;
            Parent:=TPanel(Self.FindComponent('Panel'+inttostr(y)+'_'+inttostr(x)));
            Visible:=True;
            Name:='Label1_'+inttostr(y)+'_'+inttostr(x);
            OnClick:=Translator;
            Caption:='0';
            end;

gdzie oczywiscie x i y zmienia sie w petli
następnie potrzebuje zmienic napis na labelu i tu jest klopot poniewaz zastosowanie :

TLabel(FindComponent('Label1_'+inttostr(y)+'_'+inttostr(x))).caption:='napis';

nic nie daje ze wzgledu na to ze odwoluje sie do labela a nie wiem jak sie ustosunkowac do tego ze jest on umieszczony na panelu.
Próbowałem jeszcze opcji

TLabel(self.FindComponent('Panel'+inttostr(y)+'_'+inttostr(x))).caption:='na';

jednak w tym wypadku jes tworzony nowy label.
Wie ktos jak to powinienem skonstrulowac?

0
var
  ALabel : TLabel;
begin
  ALabel := TLabel(Self.FindComponent('Label1'));
  if ALabel.Parent.Name = 'Panel1' then
  begin
    ALabel.Caption := 'cosik';
  end;
end;

O coś takiego Tobie chodzi? Jest też jeszcze Paent.ClassType.

0
TLabel(TPanel(Self.FindComponent('Panel'+inttostr(y)+'_'+inttostr(x))).FindComponent('Panel'+inttostr(y)+'_'+inttostr(x))).caption:='na';
0

Dzięki ekipa wy jedyni wiecie jak co zrobic. Co do Olesia to chcialem poinformowac ze do niedawna korzystalem z programu do zapisywania ukladu ikon na pulpicie teraz mam juz win7 ale przez no hmm z rok korzystalem z oryginału.
Pozwole sobie poprawic miska

TLabel(TPanel(Self.FindComponent('Panel'+inttostr(y)+'_'+inttostr(x))).FindComponent('Label1_'+inttostr(y)+'_'+inttostr(x))).caption:='na';

ale o cos takiego chodzilo.</url>

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