Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Вниз

Динамическое PopupMenu   Найти похожие ветки 

← →
.dn+ ©   (2007-11-18 04:56) [0]

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

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

procedure TForm1.fAddToMenu;
var
 i: Integer;
begin
for i := 0 to flcount do
   begin
   mi[i] := TMenuItem.Create(Self);
   mi[i].Caption := "меню" +IntToStr(i);
   mi[i].OnClick := MyClick;
   PopupMenu1.Items.Add(mi[i]);
   end;
end;

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

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

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

---

← →
Igor Zorkov ©   (2007-11-18 08:38) [1]

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

---

← →
{RASkov}   (2007-11-18 10:15) [2]

> [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;

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c