Popupmenu и image - Компоненты Delphi

Kamalekb · 16.05.2012, 19:07

На форме 5 image привязанные к одному Popupmenu.

Как определить, над каким открыт popup и выполнить к примеру Showmessage('popup над картинкой_1')

Kamalekb · 17.05.2012, 11:08

Проблема решилась.

Код:

procedure TForm1.N1Click(Sender: TObject);
begin

if  PopupMenu1.PopupComponent=image1 then Showmessage('над картинкой 1');
...

16.05.2012, 19:07	#1
Kamalekb Пользователь Регистрация: 08.09.2009 Сообщений: 20	Popupmenu и image На форме 5 image привязанные к одному Popupmenu. Как определить, над каким открыт popup и выполнить к примеру Showmessage('popup над картинкой_1')

17.05.2012, 11:08	#2
Kamalekb Пользователь Регистрация: 08.09.2009 Сообщений: 20	Проблема решилась. Код: `procedure TForm1.N1Click(Sender: TObject); begin if PopupMenu1.PopupComponent=image1 then Showmessage('над картинкой 1'); ...`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
EPNGMissingMultipleIDAT. This PNG Image is invalid because it has missing image parts	kardinal94	Общие вопросы Delphi	0	08.10.2010 20:31
Вопрос по Image (скачанная картинка не хочет выводиться в Image)	Radnor	Мультимедиа в Delphi	2	06.07.2009 02:20
PopupMenu	TaTT DoGG	Компоненты Delphi	13	23.05.2008 13:19
PopupMenu	Михаил Юрьевич	Общие вопросы Delphi	6	03.05.2008 18:46
PopupMenu	Teen4jump	Общие вопросы Delphi	10	12.03.2008 13:42