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

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

Как перехватить click'и по пунктам меню

syscoder ©   (2005-03-07 18:52:00) 

Есть проект, в котором при открытии разных типов файлов надо создавать окно с определённым набором инструментов. Сейчас у меня каждому событию OnClick менюшек соответствует создание определённого типа файла. Надо сделать так, чтобы при нажатии на любую менюшку вызывалась одна процедура, которая получала бы в параметре , допустим, имя нажатой менюшки и в зависимости от неё шла дальнейшая обработка. Может кто-нибудь сталкивался с такой задачей?

---

syscoder   (2005-03-07 19:58:00) [1]

>> MU ©   (07.03.05 19:51) [3]
Пардон, опух я просто уже сидеть перед этим ящиком.

---

MU   (2005-03-07 19:51:00) [2]

Сказано же:
Присвой все пунктам меню один обработчик.
В общем обработчике:
procedure TForm.OnmenuItemClick( Sender: Tobject)
begin
//здесь общие действия
//дальше конкретно:
case TMenuItem(Sender).Tag of
  TXT_FIlE: begin ... end;
  DOC_File: begin ... end;
end;
end;

---

syscoder   (2005-03-07 19:45:00) [3]

>> Fenik   (07.03.05 19:01) [1]

Никак не пойму, почему в этой строке
case TMenuItem(Sender).Tag of
компилятор гонит на необъявленность SENDER'а?

А можно реализовать другим методом, например через Application.OnMessage или WndProc?

---

Fenik   (2005-03-07 19:01:00) [4]

Присвой все пунктам меню один обработчик.
При создании форма присваивай свойству tag соответствующее значение. Допустим

const
 TXT_FIlE = 100;
 DOC_File = 101;

В Form1Create:

begin
 TxtMenuItem.Tag := TXT_FILE;
 DocMenuItem.Tag := DOC_FILE;
end;

В общем обработчике:

begin
 //здесь общие действия
 //дальше конкретно:
 case TMenuItem(Sender).Tag of
   TXT_FIlE: begin ... end;
   DOC_File: begin ... end;
 end;
end;

---

Наверх