Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c