Einfach das Popup Menü schließen

[Ginko]

Danke für die Antworten.
Ja dachte mir schon das da was faul ist, danke für den Hinweis Helmi.

Zitat:

Delphi-Quellcode:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbMiddle then
    EndMenu;
end;

Funktioniert bei mir leider nicht (unter Lazarus) ob es unter Delphi geht kann ich grad nicht testen. Vielleicht später unter Delphi 7 mal.

[Ginko]

Der Befehl EndMenu; funktioniert zwar einwandfrei über einen Timer. Aber sobald das Popup Menü offen ist spricht die mittlere Maustaste nur noch auf globale Tastaturabfragen an.

Hier mal ein Beispiel:

Delphi-Quellcode:

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ExtCtrls, StdCtrls, Windows;
.
.
.

var
  Form1: TForm1;
  z1: Integer = 0;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  EndMenu;
  Inc(z1);
  Label1.Caption:= IntToStr(z1);
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
 ShowMessage('Test 3');
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbMiddle then ShowMessage('Reagiert nicht wenn Popup offen ist');
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  Timer1.Enabled:= True; //Timer wird nach öffnen von Menü gestartet und beendet es nach entsprechender Zeit
end;

[Uwe Raabe]

Ich hatte das unter Delphi XE2 und Windows 7 getestet: Neue VCL-Forms-Anwendung, Memo drauf, MouseDown-Event wie gezeigt. Starten, rechte Maustaste auf Memo, Popup-Menü kommt, mittlere Maustaste auf Popupmenü - funktioniert.

[Ginko]

Hi hab es auch nochmal gerade so getestet unter Lazarus, es funktioniert wirklich. ABER nur mit dem Orginal Popup Menü von Windwos. Sobald ich ein eigenes verwende, tritt der oben beschriebene Fehler auf. Hast du es mit dem Orginal getestet ? Danke für die Mühe!

[Uwe Raabe]

Ja, ich hatte das Standardmenü genommen. Mit einem eigenen Popupmenü geht es in Delphi auch nicht. Liegt wohl daran, daß das Standardmenü mit dem Handle des Controls arbeitet, während die VCL-Popupmenüs ein anderes Window-Handle verwenden.

[Uwe Raabe]

Der folgende Code in einer passenden Unit sollte das aber beheben. Das funktioniert dann allerdings mit allen Popupmenüs und man braucht den Event i Memo nicht mehr.

Delphi-Quellcode:

type
  TMyPopupList = class(TPopupList)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

procedure TMyPopupList.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_MBUTTONDOWN then begin
    EndMenu;
    Exit;
  end;
  inherited;
end;

initialization
  PopupList.Free;
  PopupList := TMyPopupList.Create;
end.

[Ginko]

Ja das funktioniert prima unter Delphi, allerdings hat Lazarus keinen Typ TPopupList.

(Aus der Delphi Hilfe: TPopupList verwaltet das Fenster, in dem die Meldungen von Popup-Menüs angezeigt werden).

Etwas vergleichbares konnte ich bis jetzt auch nicht finden. Es gibt aber bei den Eigenschaften der Formulare, wo man u.a. das Popup Menü zuordnet, einen Punkt der PopupParent heißt, allerdings konnte ich noch keinen Wert finden den er hier annimmt.

[DeddyH]

Zitat von Uwe Raabe:

Delphi-Quellcode:

procedure TMyPopupList.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_MBUTTONDOWN then begin
    EndMenu;
    Exit;
  end;
  inherited;
end;

Wäre das so unter Verzicht auf Exit nicht lesbarer?

Delphi-Quellcode:

procedure TMyPopupList.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_MBUTTONDOWN then
    EndMenu
  else
    inherited;
end;