Главная страница
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.018 c
1-64058
ГеныЧ
2003-03-07 23:50
2003.03.20
Шаблоны и печать на тормознутом компе.


1-64089
UDS
2003-03-10 13:25
2003.03.20
Как вытянуть строку из текстового файла?


14-64314
Mike B.
2003-03-04 13:11
2003.03.20
:)


1-64201
Karros
2003-03-07 21:54
2003.03.20
Кто сделает меньше ?


3-63931
OlegM
2003-03-03 14:26
2003.03.20
Почему не работает прога с таблицами созданными на Sql