Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
1-1142333176
Priest
2006-03-14 13:46
2006.04.16
Приведение класса к интерфейсу


10-1115971030
Priest
2005-05-13 11:57
2006.04.16
Динамическое добавление методов к IDispatch


15-1143032556
MBo
2006-03-22 16:02
2006.04.16
Эксперт для использования в BDS хелпа от D7 или D6


2-1144205240
Sw
2006-04-05 06:47
2006.04.16
Стиль столбца DBGrid


1-1141234487
Unitay
2006-03-01 20:34
2006.04.16
Примечание в Excel