Kennt TMainMenu nicht OnPopup

[Luckie]

Ich würde gerne beim Aufklappen des MainMenus ein paar Items aktivieren oder deaktivieren. Nur leider habe ich keinen passenden Event gefunden.
Was kann man da machen?

[s14]

Verwende doch einfach das OnClick Ereignis :roll:

[Jens Schumann]

Moin Luckie,
um ein TMainMenu aufzuklappen muss man auf das erste im Menu sichtbare TMenuItem klicken.
In dessen OnClick-Event kann man das machen

[Luckie]

Hmpf, wer denkt denn an so was? :roll: Besten Dank.

[sakura]

Zitat:

Zitat von Luckie

Was kann man da machen?

In der DP nachfragen :zwinker:

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    PrintSetup1: TMenuItem;
    Print1: TMenuItem;
  private
    { Private declarations }
    [color=#ff0012]procedure WMENTERMENULOOP(var Msg: TMessage); message WM_ENTERMENULOOP;[/color]
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

[color=#ff0012]procedure TForm1.WMENTERMENULOOP(var Msg: TMessage);
begin
  MessageBeep(0);
  inherited;
end;[/color]

end.

...:cat:...

[sakura]

Zitat:

Zitat von Jens Schumann

um ein TMainMenu aufzuklappen muss man auf das erste im Menu sichtbare TMenuItem klicken.
In dessen OnClick-Event kann man das machen

Nachteil ist, das wenn der User hin und her wechselt (weil er nicht die Maus so zitterfrei bewegen kann) alle Tests jedes mal durchgeführt werden müssen - je nach Länge kann das dauern.

Aber dafür ist es garantiert die einfachere und die VCL-ere Lösung :lol:

...:cat:...

[shmia]

Du kannst das OnClick-Event der "Toplevel" Menu-Items (also die Items, die auch dann sichtbar
sind, wenn das Mainmenu zugeklappt ist) verwenden.
Dieses Event wird in jedem Falle ausgelöst, wenn das Menu aufgeklappt wird. :zwinker: