Главная страница
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.026 c
1-1096248121
Ктото
2004-09-27 05:22
2004.10.10
Посоветуйте пожалуйста статью по созданию экспертов для


14-1095292657
Мистер Х
2004-09-16 03:57
2004.10.10
Будущее MS Windows


1-1096117057
Nils
2004-09-25 16:57
2004.10.10
Нужен пример работы с TMemIni?


1-1096264614
Никита
2004-09-27 09:56
2004.10.10
Поиск в строке


1-1095861893
DelphiLexx
2004-09-22 18:04
2004.10.10
Получить сообщения окна, зная Handle