Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c