[poli-smen]

Сообщение от YVitaliy

Код:

procedure TForm1.sbt_StatMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: TPoint;
begin
  sbt_Stat.Perform( BM_SETSTATE, 1, 0 );
  with Sender as TButton do
  begin
    pt := Point(Left, Top + Height);
    pt := Parent.ClientToScreen(pt);
  end;
  PopupMenu1.Popup(pt.X, pt.Y);
  sbt_Stat.Perform( BM_SETSTATE, 0, 0 );
end;

В OnMouseMove.

Ну если от Sender'а отталкиваться - тогда уж до конца :

Код:

procedure TForm1.sbt_StatMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
begin
  with Sender as TButton do
  begin
    Perform(BM_SETSTATE, 1, 0);
    pt := Parent.ClientToScreen(Point(Left, Top + Height));
    PopupMenu1.Popup(pt.X, pt.Y);
    Perform(BM_SETSTATE, 0, 0);
  end;
end;

p.s. Хотя конструкцию with я недолюбливаю...

[DOR]

Не сочтите за наглость, так чтобы было вообще при вообще, как сделать чтобы при смене фокуса меню закрывалось. Спасибо.

[poli-smen]

Сообщение от DOR

Не сочтите за наглость, так чтобы было вообще при вообще, как сделать чтобы при смене фокуса меню закрывалось. Спасибо.

Ничего не делать - при потере фокуса меню и так скрывается (обычно).

[DOR]

Хм, у меня не скрывается, приходиться щелкнуть в свободном месте, только после этого пропадает.

[YVitaliy]

При смене фокуса на такую же кнопку с выпадающим меню?

[DOR]

Не всегда, иногда это просто кнопка, иногда на выпадающую

[YVitaliy]

Может так? Но я пока только с таймером допер.
ЗЫ Кусок кода

Код:

if  form1.ControlAtPos(pt,true,true).ClassType = TButton then
     if form1.ControlAtPos(pt,true,true).Tag=54 then
     Button1MouseMove(form1.ControlAtPos(pt,true,true),[],pt.X, pt.Y);
 

в обработчике таймера удали, если используешь OnMouseMove для TButton.

[DOR]

Возвращаясь к теме, в выложенном примере, скрытие меню происходит только если перевести курсор на какой нить другой буттон, а не убрать фокус с кнопки и при этом (после скрытия меню) кнопка под которым вылазило меню, остается вжатой (. Помогите пожалуйста добить эту тему.

[Alegun]

Сообщение от DOR

Возвращаясь к теме, в выложенном примере, скрытие меню происходит только если перевести курсор на какой нить другой буттон, а не убрать фокус с кнопки и при этом (после скрытия меню) кнопка под которым вылазило меню, остается вжатой (. Помогите пожалуйста добить эту тему.

Нашёл в тырнете один варьянт как заставить "убраться" попапку после слёта с неё курсора, но он очень громоздкий, более 100 строк и около 5ти процедур в теле, это не айс, да в добавок он глючный, нарушает всю аплику, потому забил на энто дело. Есть более простые, на мой взгляд, способы - либо по таймеру послать эмульку эскейпа, (программно нажать на баттон Esc) типа:

Код:

keybd_event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE, 0), 0, 0);
keybd_event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE, 0), KEYEVENTF_KEYUP,0);

либо постануть попапке мессагу WM_NULL типа:

Код:

PostMessage(PopupMenu.Handle, WM_NULL, 0, 0);

Но здесь свои подводные каменюги: вроде нужно ловить сообщения для/от всплывающей менюхи, особливо про схождение с неё грызуна чтоб таймер включить (по идее это возможно, исчезает же при уходе выделение пунктов, здесь наверное задействуются WM_ENTERMENULOOP или WM_EXITMENULOOP, точно не проверял, походу эти мессаги в обход класса проходят) иначе, закроется менюшка даже под мышой, но к сожалению, я таких заморочек не знаю, только лишь открыто/закрыто на ум приходит(GetGUIThreadInfo:= GUITHREADINFO.hwndMenuOwner = 0:закр; <>0: откр) но это всё шлётся после клика по пунктам меню:-( Однажды я с таким сталкивался, плюнул, и сварганил эрзац попапки из связки панель+листбокс, но это было давно и очень нудно.
Ещё могу предложить немного модифицнуть в примере процедуру Button1MouseMove, дописав первой строчкой вот это:

Код:

if Application.Active then begin ...всё остальное... end;

иначе попапка будет вылазить и при неактивной форме, или сквозь другие проги, что не совсем хорошо.

[angvelem]

Вот ещё бы в темочке писатеньки без выпендрёжечка.

[Alegun]

Сообщение от angvelem

Вот ещё бы в темочке писатеньки без выпендрёжечка.

Хаяшо:-), учту на будущее!

[lmikle]

Сообщение от Alegun

Хаяшо:-), учту на будущее!

Ну, если надо отследить именно уход фокуса, то в обработчике события OnExit надо просто проверить, что меню еще открыто, и если да, то просто закрыть его.

[Alegun]

Сообщение от lmikle

Ну, если надо отследить именно уход фокуса, то в обработчике события OnExit надо просто проверить, что меню еще открыто, и если да, то просто закрыть его.

К сожалению, OnExit происходит после потери фокуса всплывающим меню посредством клика мышки или клавы :-( , а ТС нужно отловить именно момент ухода курсора с формы меню (фокус на ней остаётся).

[angvelem]

Я в самопальном меню использовал WM_MOUSELEAVE.

[YVitaliy]

Для выхода я в примере использую EndMenu - должна закрывать все меню, так что эмулировать esc нет смысла.

Для "убора" фокуса с кнопки нужно (!) кликнуть по какому-нибудь другому контролу. Сам по себе фокус никуда не денется (если конечно не убирать его "вручную"). А для клика на другой контрол нужно навести на него мышь (при открытом меню tab не работает). А процедура (которая в таймере) отлавливает это наведение, и закрывает все меню, если tag в этого контрола не равен 55. В примере лежит и панель, неужели при наведении на нее меню не закрывается?