| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое PopupMenu [D7, XP]

.dn+ ©   (2007-11-18 04:56:00) 

У меня ещё вопросик....ВОТ КОД:

------------------------------------------

procedureTForm1.fAddToMenu;
var
 i: Integer;
begin
fori := 0 toflcount do
    begin
   mi[i] := TMenuItem.Create(Self);
   mi[i].Caption := 'меню' +IntToStr(i);
   mi[i].OnClick := MyClick;
   PopupMenu1.Items.Add(mi[i]);
    end;
end;

-----------------------------------------

А КАК МНЕ УЗНАТЬ, ПО КАКОЙ КЛИКНУЛ ПОЛЬЗОВАТЕЛЬ?

СПАСИБО!!!!!

---

{RASkov}   (2007-11-18 10:15:00) [1]

> [0] .dn+ ©   (18.11.07 04:56)
> А КАК МНЕ УЗНАТЬ, ПО КАКОЙ КЛИКНУЛ ПОЛЬЗОВАТЕЛЬ?

В обработчике MyClick; В Sender'е содержится тот, кто вызвал данный обработчик....или nil если вызов MyClick был "вручную" с параметром nil

procedure Tform.MyClick(Sender:..);
begin
 if Sender is TMenuItem then ShowMessage(TMenuItem(Sender).Caption);
end;

---

Igor Zorkov   (2007-11-18 08:38:00) [2]

C:\Program Files\Borland\Delphi7\Help\Examples\Menu2

---

Наверх