Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Как напрвить действие на группу элементов?   Найти похожие ветки 

← →
kyn66 ©   (2006-03-13 11:01) [0]

Доброго времени суток, мастера! У меня на форме лежит 10 панелей. У всех их один обработчик события onClick и разборка идет в зависимости от того, какой Caption или Tag у панели. Как мне выполнить перенапрвление на это событие из другого места? К примеру так:

procedure TMainFrm.Panel1Click(Sender: TObject);
begin
 with (Sender as TPanel) do
 begin
   if BorderStyle = bsNone then
   begin
     BorderStyle := bsSingle;
     Font.Style := [fsBold];
     Font.Color := clRed;
   end
   else
   begin
     BorderStyle := bsNone;
     Font.Style := [];
     Font.Color := clBlack;
   end;
 end;
end;


и нужно вот что

procedure TMainFrm.Button1Click(Sender: TObject);
begin
 TPanel(FindComponent("Panel" + Edit1.Text)).CLick; << ???????
 TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(???????);
end;



---

← →
Плохиш ©   (2006-03-13 11:04) [1]

Panel1Click(FindComponent("Panel" + Edit1.Text));

---

← →
Чапаев ©   (2006-03-13 11:04) [2]

> TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(????
> ???);

TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(FindComponent("Panel" + Edit1.Text));

---

← →
kyn66 ©   (2006-03-13 11:18) [3]

2 Плохиш
Ай спасибо ! Молодца ! Млин... и че все кругом такие умные, один я .... 8-)
Всем спасибо, проблема решена ! 8-)

---

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

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.266 c