Как обновить TButton внутри TPanel`a?

← →
vegarulez © (2007-07-25 13:20) [0]

Привет всем мастерам!

У меня вот такой вопрос, чтобы обновлять батоны на форме я использую такой код:

var
i, cifra:integer;
...

for i:=1 to 33 do
Begin
if strtoint(cifra)<>i then
begin
with TButton(FindComponent("Button" + IntToStr(i))) do
begin
if FindComponent("Button" + IntToStr(i))= nil then
begin
if qwerty=0 then
Caption:=bb[i]
else
Caption:=bq[i];
Font.Color:=ClBlack;
end;
end;
end;
End;

Вопрос: Если я перенёс все батоны в TPanel, как мне к ним достучаться?

з.ы. Делаю так:
...
with TPanel(FindComponent("P_Rus")) do
[дальше код который привёл выше]
Он ругается на проверку nil... не находит вообщем.
Подскажите, как правильно это реализовать...

← →
clickmaker © (2007-07-25 13:27) [1]

> Если я перенёс все батоны в TPanel

Panel.FindComponent

← →
Loginov Dmitry © (2007-07-25 13:29) [2]

Panel.FindControl

← →
{RASkov} © (2007-07-25 13:33) [3]

> [0] vegarulez © (25.07.07 13:20)
> with TButton(FindComponent("Button" + IntToStr(i))) do
> begin
> if FindComponent("Button" + IntToStr(i))= nil then
> begin

Никчему понескольку раз делать FindComponent... Достаточно
var Obj: TObject; begin ........... Obj:=FindComponent("Button" + IntToStr(i)); if Obj<>nil and Obj is TButton then TButton(Obj).Cpt.... .........

ахха, псп.

Как обновить TButton внутри TPanel`a? Найти похожие ветки