| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как обновить TButton внутри TPanel`a? [D6, XP]

vegarulez ©   (2007-07-25 13:20:00) 

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

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



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... не находит вообщем.
Подскажите, как правильно это реализовать...

---

vegarulez   (2007-07-25 13:41:00) [1]

ахха, псп.

---

{RASkov}   (2007-07-25 13:33:00) [2]

> [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....
.........

---

Loginov Dmitry   (2007-07-25 13:29:00) [3]

Panel.FindControl

---

clickmaker   (2007-07-25 13:27:00) [4]

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

Panel.FindComponent

---

Наверх