Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

Динамическое создание PopupMenu и событие OnClick   Найти похожие ветки 

 
НовичОк ©   (2004-09-28 01:25) [0]

Как узнать по какому пункту PopupMenu был клик, если PopupMenu создаётся динамически?

 with (Sender as TPopupMenu) do
 begin

   mi := TMenuItem.Create(self);
   with mi do
   begin
     Caption := "XXXXXX";
     OnClick := MyClick;
   end;
   Items.Insert(0, mi);

Таких пунктов много и для каждого нельзя написать обработку OnClick, вот я и думаю что нужно передать MyClick название пункта по которому был клик и дальше выполнять нужные операции. Или всё это делается как-то по-другому?

Заранее спасибо!


 
Defunct ©   (2004-09-28 03:19) [1]

procedure MyClick(Sender: TObject);
begin
 with Sender as TMenuItem do
 Begin
   ShowMessage(Caption);
 End;
end;

Sender - выбранный пункт меню.


 
Defunct ©   (2004-09-28 03:21) [2]

неточность допустил, сорри:

procedure TForm1.MyClick(Sender: TObject);
begin
if Sender is TMenuItem Then
with Sender as TMenuItem do // здесь Sender - пункт меню на который кликнули
Begin
  ShowMessage(Caption);
End;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.034 c
4-1094121621
Владимир
2004-09-02 14:40
2004.10.10
Как в одном приложении сделать окна (формы) доступные по Alt+Tab


8-1090012914
кактусбел
2004-07-17 01:21
2004.10.10
Как добавить текст в jpeg фаил и сохранить его не испортив


3-1095140839
snake1977
2004-09-14 09:47
2004.10.10
Добавление большого количества записей


14-1095838977
Григорьев Антон
2004-09-22 11:42
2004.10.10
Как правильно переводится rooted?


1-1096277803
DelphiLexx
2004-09-27 13:36
2004.10.10
CreateThread