Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.03;
Скачать: CL | DM;

Вниз

вызов PopupMenu   Найти похожие ветки 

 
Evgeny ©   (2003-10-24 07:10) [0]

Имеется на форме некоторое количество компонентов, к примеру TEdit. Каждый из них вызывает одно и то же PopupMenu. Если какая-либо возможность определить из какого TEdit`а был сделан вызов?


 
gek ©   (2003-10-24 07:30) [1]

if(sender as TCustomEdit).name = "kuku" then
or
if(sender as TCustomEdit).tag = 999 then
or...


 
Романов Р.В. ©   (2003-10-24 07:31) [2]

F1 - TPopupMenu.PopupComponent


 
Evgeny ©   (2003-10-24 08:44) [3]

>Романов Р.В. © (24.10.03 07:31) [2]
F1 - TPopupMenu.PopupComponent

не умнО.

>gek © (24.10.03 07:30) [1]
if(sender as TCustomEdit).name = "kuku" then
or
if(sender as TCustomEdit).tag = 999 then
or...

Если бы такой вариант проходил, то мой вопрос бы не возник.
Sender в какой процедуре? Если я нажимаю кнопку (TButton), то вышеприведенный код очень даже хорош в событии OnClick, но для меню не могу придумать как поймать от какого компонента оно запустилось.


 
Романов Р.В. ©   (2003-10-24 08:54) [4]


> >Романов Р.В. © (24.10.03 07:31) [2]
> F1 - TPopupMenu.PopupComponent
>
> не умнО.


:)


 
Evgeny ©   (2003-10-24 09:07) [5]

>Романов Р.В. © (24.10.03 08:54) [4]

Ай-яй. Каюсь, совсем плохо с головой.



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
14-8624
Keith Flint
2003-10-14 18:36
2003.11.03
Зацените сайт


14-8664
VID
2003-10-13 15:17
2003.11.03
ASDSee 6.0, Norton Utilities 2002 6.0


7-8680
Tihomirov
2003-08-23 14:48
2003.11.03
Номер CD-диска


1-8361
TolikM
2003-10-22 16:22
2003.11.03
установка XML программно


4-8721
Bes
2003-08-29 03:37
2003.11.03
Убрать подвисание..