Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
3-64052
Stenkz
2003-03-03 07:40
2003.03.20
Сравнение с nil??? Как узнать, что в поле вообще несодер. значие


14-64302
~
2003-03-03 14:10
2003.03.20
Банальная, в общем-то идея по развитию проекта


1-64125
GrayWolf
2003-03-10 22:16
2003.03.20
Корректная выгрузка DLL


14-64294
Num Lock
2003-03-06 09:35
2003.03.20
СКУЧНО,,,


1-64079
GIL
2003-03-10 09:44
2003.03.20
Динамический TEdit и OnKeyPress