Скачать: CL | DM;

Как обновить 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....
.........

---

← →
vegarulez ©   (2007-07-25 13:41) [4]

ахха, псп.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c