Как к одному событию нажатия на 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;
то ничего не происходит, почему?

потому что 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

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