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

Вниз

Как к одному событию нажатия на popup меню привязать два разных   Найти похожие ветки 

 
iNew   (2002-11-08 10:11) [0]

действия, т.е. Image1.PopUpMenu:=PopUpMenu1;
Image2.PopUpMenu:=PopUpMenu1;
procedure TMainForm.PopUpClick(Sender: TObject);
begin
if PopUpMenu нажали на Image1 then
begin
……
end;

if PopUpMenu нажали на Image2 then
begin
……
end;

end;


 
Николай Быков ©   (2002-11-08 10:13) [1]

А где вопрос?


 
MBo ©   (2002-11-08 10:17) [2]

if Sender=... then


 
Cobalt ©   (2002-11-08 10:18) [3]

>iNew (08.11.02 10:11)
Сравнивай Sender - это тот элемент, который "произвел" событие.
procedure TMainForm.PopUpClick(Sender: TObject);
begin
if (Sender is Image1)
then begin
....
end
else if (Sender is Image2)
then begin
....
end;


 
MBo ©   (2002-11-08 10:28) [4]

procedure TForm1.N111Click(Sender: TObject);
begin
Caption:=TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent.Name;
end;


 
Cobalt ©   (2002-11-08 10:28) [5]

Упс, точно, не is a =


 
iNew   (2002-11-08 10:37) [6]

Если делать
if Sender = Image1 then
begin
...
end;

if Sender = Image2 then
begin
...
end;
то ничего не происходит, почему?


 
MBo ©   (2002-11-08 10:40) [7]

потому что sender- не image, а меню или его элемент - для этого случая мой последний пример


 
Alex44   (2002-11-08 11:02) [8]

if PopUpMenu1.PopupComponent = ...

Mozhno postavit" im raznye Tag"i i

case PopUpMenu1.PopupComponent.Tag of

Sender vsegda MenuItem



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

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

Наверх




Память: 0.48 MB
Время: 0.037 c
4-59505
Angel_on
2002-10-08 22:13
2002.11.18
Как узнать список запущеных программ в это время?


14-59412
Карлсон
2002-10-30 17:12
2002.11.18
кристаллы


3-58996
REP
2002-10-29 06:56
2002.11.18
Добавление поля в существующую таблицу


1-59241
down
2002-11-06 19:37
2002.11.18
OemToChar, CharToOem для произвольных кодировок


3-59037
Veronika
2002-10-29 12:22
2002.11.18
Как защитить книгу Excel от просмотра?