Определить открыто ли popup меню

← →
гость2 (2005-12-14 20:07) [0]

Сабж?

← →
Button1Click (2005-12-14 23:18) [1]

procedure TForm1.Button1Click(Sender: TObject); begin caption := "PopupMenu открыто"; PopupMenu1.Popup(left+100,top+ 100); Caption := "PopupMenu закрыто"; end;

← →
<code> (2005-12-16 15:29) [2]

function IsPopUpMenuOpen(h:HWnd):Boolean; var p:TWindowPlacement; begin p.Length:=SizeOf(TWindowPlacement); //это нужно только что бы win95 не падала GetWindowPlacement(h,@p); if (byte(@p.showCmd)shr 7)=1 then result:=false else result:=true; end;

if IsPopUpMenuOpen(PopupMenu1.Handle) then beep;

← →
wal © (2005-12-16 15:30) [3]

> if (byte(@p.showCmd)shr 7)=1 then result:=false else result:=true;
Круто :)

← →
гость2 (2005-12-17 19:34) [4]

> function IsPopUpMenuOpen(h:HWnd):Boolean;
> var p:TWindowPlacement;
> begin
> p.Length:=SizeOf(TWindowPlacement); //это нужно только
> что бы win95 не падала
> GetWindowPlacement(h,@p);
> if (byte(@p.showCmd)shr 7)=1 then result:=false else result:
> =true;
> end;
>
>

Всегда возвращает false :(

> гость2

var
R: TRect;
begin
GetMenuItemRect(0, PopupMenu.Handle, 0, R);
if not IsRectEmpty(R) then
// открыто
end

Возможно, чушь написал -- тогда прошу прощения. Немного не в себе.

← →
<code> (2005-12-18 00:33) [6]

//работает только если меню открылось над формой function IsPopUpMenuOpen(h:HWnd):Boolean; var p:TWindowPlacement; begin p.Length:=SizeOf(TWindowPlacement); //это нужно только что бы win95 не падала GetWindowPlacement(h,@p); if (Pbyte(@p.showCmd)^=SW_SHOWNOACTIVATE) then result:=true else result:=false; end;

Определить открыто ли popup меню Найти похожие ветки