| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Раскрытие PopupMenu на форме [D7, WinXP]
Дмитрий_05 © (2005-12-03 21:22:00)У меня форма нестандартного размера(непрямоугольная) без бордюра, создается функциями CreateRectRgn, SetWindowRgn в OnCreate. Прорисовка формы осуществляется в обработке WM_EraseBkgnd а перенос в обработке WMNCHitTest. Так вот в такой форме у меня почему-то не раскрывается PopupMenu по нажатию по ней правой кнопкой мыши, в свойстве формы "PopupMenu" выставлено. Попробовал сделать так: обрабатывать WM_RBUTTONDOWN а в нем прописал:
procedure TForm1.WMRButtonDown(var Message: TWMRBUTTONDOWN);
begin
PopupMenu1.Popup(Message.XPos, Message.YPos);
end;
тоже результата не дало... Что делать?
Дмитрий_05 (2005-12-04 21:53:00) [1]Спасибо, все работает )))
Юрий Зотов (2005-12-04 01:46:00) [2]> Дмитрий_05 (04.12.05 01:13) [2]
> мне кажется что сообщение не доходит до клиентской части... это из за
> того что WMNCHitTest я обрабатываю так
Именно поэтому.
> можно ли его какнибудь переделать чтобы доходили сообщения?
Дополнительно проверяйте, нажата ли левая кнопка мыши:
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if (GetAsyncKeyState(VK_LBUTTON) < 0) and (Message.Result = HTCLIENT) then
Message.Result := HTCAPTION
end;
Дмитрий_05 (2005-12-04 01:13:00) [3]мне кажется что сообщение не доходит до клиентской части... это из за того что WMNCHitTest я обрабатываю так:
if msg.Result=htClient then msg.Result:=htCaption;
можно ли его какнибудь переделать чтобы доходили сообщения?
Delphi_is_cool (2005-12-03 23:59:00) [4]
> тоже результата не дало
Т.е сообщение отлавливается, но PopupMenu не раскрывается ? Если да, то попробуй использовать ф-цию TrackPopupMenu ... хотя я думаю что есть вероятность того что оно раскрывается, но за пределами экрана, в этом случаем можно попробовать использовать ф-цию GetMessagePos для опредиления координат ...
| |
