Saber se PopupMenu est� sendo exibido

Question

Como fa�o para saber se o menupopup est� sendo exibido?...

Guilherme · Answer

Como fa�o para exibir o popup quando apertar enter ?...

Emerson Nascimento · Answer

raserafim, explique exatamente o caso.gborges_13, fa�a, no OnKeyPress:PopupMenu1.Popup(PosicaoX,PosicaoY);...

Raserafim · Answer

preciso saber se o popupmenu, que est� associado a um panel, j� est� sendo exibido ou n. pois em uma outra parte do programa, chamo um procedimento, que entre outras cosas, dispara o popupmenu (exibe o popupmenu), mas em alguns casos o popupmenu j� est� sendo exibido, o que provoca um erro. Ent�o peciso saber se j� est� sendo exibido pra evitar o erro

Motta · Answer

O evento OnPopup ocorre quando o pop � disparado, a prop. PopupComponent diz quem o �disparou�.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure PopupMenu1Popup(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage(PopupMenu1.PopupComponent.Name);
end;

end.

Raserafim · Answer

Motta, saber quem disparou o evento vai me ajudar pra outras coisas, mas ainda n�o eliminou o meu problema.Realmente preciso saber se o Popupmenu est� sendo exibido ou n�o....

Emerson Nascimento · Answer

veja se isso funciona:[code:1:7e63da89af]if not TForm(PopupMenu1).Showing thenbegin   MostraMenu;   FazAlgumaCoisa;endelse   FazAlgumaCoisa;[/code:1:7e63da89af]...

Otto · Answer

[quote:a8228f9ea4=�emerson.en�]veja se isso funciona:[code:1:a8228f9ea4]if not TForm(PopupMenu1).Showing thenbegin   MostraMenu;   FazAlgumaCoisa;endelse   FazAlgumaCoisa;[/code:1:a8228f9ea4][/quote:a8228f9ea4]n�o, n�o funcionou n�o  :cry: alguem teria mais sugest�es?...

Leitorbinario · Answer

Tenta fazer um tratamento de erro talvez ajude.try except...

F�rum Saber se PopupMenu est� sendo exibido #269124