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

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

Как напрвить действие на группу элементов? [D7, WinXP]

kyn66 ©   (2006-03-13 11:01:00) 

Доброго времени суток, мастера! У меня на форме лежит 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;



---

kyn66   (2006-03-13 11:18:00) [1]

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

---

Плохиш   (2006-03-13 11:04:00) [2]

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

---

Чапаев   (2006-03-13 11:04:00) [3]

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

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

---

Наверх