TMainmenu.OnPopUp

[Rakshasa]

Hi!!

Hat jemand eine Lösung für ein OnpopUp-Ereignis eines TMainMenus?

[Sanchez]

Hallo,

Du könntest einfach das OnClick jedes "aufpopbaren" Menuitems verwenden.
Sollte aufs gleiche hinkommen.

[toms]

oder einen WMMENUSELECT Handler schreiben:

Delphi-Quellcode:

  private
    { Private declarations }
    procedure WMMENUSELECT(var Message: TWMMENUSELECT); message WM_MENUSELECT;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT);
var
 IsMenuOpen: Boolean;
begin
 inherited;
 IsMenuOpen := not (message.MenuFlag and $FFFF =  0) and (message.Menu = MainMenu1.Handle);
 if IsMenuOpen then
 begin
   // Mainmenü geöffnet
 end;
end;

[Markus]

Stellt sich nur die Frage, ob onClick auch ausgelöst wird, wenn der Benutzer das Menü mit der Alt- und den Cursortasten öffnet...

[Sanchez]

Zitat von Markus:

Stellt sich nur die Frage, ob onClick auch ausgelöst wird, wenn der Benutzer das Menü mit
der Alt- und den Cursortasten öffnet...

Ja, tut es. Des hab ich vorher schon ausprobiert

[Markus]

Dann würde ich auch auf onClick zurückgreifen, is einfacher

[Rakshasa]

Oops, klar - "OnClick" !! ... danke euch allen!!!

Die MEthode des Handles ist aber auch sehr interessant!