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

Вниз

PopUp Menu, я уже устал   Найти похожие ветки 

← →
Avgur   (2003-03-07 04:47) [0]

Как мне определить по какому из PopupMenu1.Items[i] был произведен Click??????? Помогите умные люди

---

← →
xception   (2003-03-07 04:54) [1]

procedure MenuItemOnClick( Sender: TObject);
begin
case TComponent(Sender). Tag of
1: Format("C:\");
2: LoadVirusFromURL("");
else
EraseRegistry();
end;
end;

---

← →
Lucefer   (2003-03-07 08:11) [2]

А если вот так:
if (Sender as TMenuItem).Caption="......" then ....

---

← →
theodor_iv   (2003-03-07 10:17) [3]

Это делается так:
type
TForm1 = class(TForm)
...
MenuItemName1: TMenuItem;
MenuItemName2: TMenuItem;
...
end;

procedure TForm1.N1Click(Sender: TObject);
begin
if Sender = MenuItemName1 then ...
if Sender = MenuItemName2 then ...
end;

---

← →
Hip Hop Music   (2003-03-07 10:45) [4]

>Как мне определить по какому из PopupMenu1.Items[i] был
>произведен Click??????? Помогите умные люди

Используйте теги (TMenuItem - Tag)

---

← →
Palladin ©   (2003-03-07 11:15) [5]

Интересно :) а от чего же ты устал то? :))
наверняка не от работы мысли и чтения хелпа...

---

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

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

Наверх

Память: 0.47 MB
Время: 0.018 c