Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как определить , где всплыло popupMenu / 5 сообщений из 5, страница 1 из 1
11.12.2003, 12:19
    #32350472
Oleg Afanasiev
Oleg Afanasiev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить , где всплыло popupMenu
Как можно определить , на каком из компонентов (MaskEdit, TEdit)
всплыло PopUpMenu и исходя из результата
выполнить те или иные действия по клику на пукнт этого меню?
Например - очистить поле ввода.

Зачем это нужно - хочу создать одно меню для всех
схожих компонент в проекте, а не плодить их на каждой форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 12:21
    #32350479
srf2000
srf2000
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить , где всплыло popupMenu
а Sender не подходит что-ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 12:25
    #32350487
Oleg Afanasiev
Oleg Afanasiev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить , где всплыло popupMenu
Код: plaintext
1.
2.
3.
4.
procedure TMainForm.N35Click(Sender: TObject);
begin
ShowMessage(TMaskEdit(Sender).Name);
end;


Вызываю из другой формы на MaskEdit - показывает N35
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 12:29
    #32350495
srf2000
srf2000
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить , где всплыло popupMenu
Read PopupComponent to determine which control is currently using the popup menu
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 12:40
    #32350513
Oleg Afanasiev
Oleg Afanasiev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить , где всплыло popupMenu
Всем Спасибо , уже всё :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как определить , где всплыло popupMenu / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]