Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
Как в Delphi загрузить меню из ресурса. |
Философия, технологии, алгоритмы! |
|
Опции темы |
29.05.2006, 12:34 | #7 |
Бывалый форумец
Сообщений: 687
Регистрация: 05.08.2005
Не в сети |
Помню по C++Builder. Должно быть что-то вроде:
после загрузки меню и построения его пунктов (или при построении его пунктов) item_nnn->OnClick=некое_нужное_имя_метода метод, по-моему должен быть void (в терминах C++) или item_nnn->Action=нужный_action (если работаешь через них) Т.е. цепляние методов динамическое, так же как построение меню. Только замени C++-ный оператор -> на паскалевскую точку, кажется. Если меню строится сразу, а не по одному item-у, то после построения проходишься в цикле по item-ам, получаешь, например название item-а (Caption) и в зависимости от него прицепляешь нужный метод. |
29.05.2006, 18:22 | #8 |
Кэп Улитка
Сообщений: 8,067
Регистрация: 04.05.2005
Возраст: 43
Не в сети |
Ты когда менюху создаешь, то ID-шники прописываешь, ведь так?
Ну тогда тебе необходимо отлавливать WM_COMMAND со значением в wParam с номерами равными этим ID в оконной функции. P.S. Это теоретическое изыскание - так ли это на самом деле - фиг знает - меню из ресурса создавать не пробовал, хотя для Студии (С++) это нормально |
31.05.2006, 20:40 | #9 | |
аццкий троглодит
Сообщений: 3,236
Регистрация: 28.02.2004
Возраст: 39
Не в сети |
Цитата:
im[j].OnMouseDown:=form1.form_fr1MouseDown; procedure TForm1.form_fr1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var j:integer; begin ..... end; |
|