Label na panelu i zarzadzanie labelem

Odpowiedz Nowy wątek
2010-09-08 18:39

Rejestracja: 13 lat temu

Ostatnio: 3 dni temu

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?

Pozostało 580 znaków

2010-09-08 18:56
Moderator

Rejestracja: 12 lat temu

Ostatnio: 3 tygodnie temu

Lokalizacja: Szczecin

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.


Pozostało 580 znaków

2010-09-08 19:13

Rejestracja: 16 lat temu

Ostatnio: 7 lat temu

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

- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2010-09-08 23:15

Rejestracja: 13 lat temu

Ostatnio: 3 dni temu

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>

Pozostało 580 znaków

Odpowiedz

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