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)

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

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