Einfach das Popup Menü schließen

[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.

[Uwe Raabe]

Dann scheint Lazarus noch eine andere Implementation zu haben. Leider kenne ich mich damit überhaupt nicht aus.

[Uwe Raabe]

Zitat von Ginko:

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

Die Deutsche Übersetzung ist etwas missverständlich. In dem Englischen Original wird das deutlicher:

Zitat:

TPopupList manages the window that handles popup menu messages.
TPopupList is the type of the global PopupList variable, which provides centralized message handling for all popup menus in an application.

Gemeint ist damit, daß die Windows-Messages für das geöffnete Popupmenu zentral von TPopupList bearbeitet werden. Im Fall des Standard-Menüs wird aber das Window-Handle des Controls verwendet, das zum Popup geführt hat. Daher kommen in meiner ersten Antwort alle Messages auch beim TMemo an. Bei einem VCL-Popupmenu behandelt TPopupList diese Messages und alles was es nicht kennt wird ignoriert. Aus diesem Grund funktioniert die abgeleitete Klasse, die die Standard PopupList ersetzt.

Keine Ahnung, wie Lazarus das macht.

[Ginko]

Trotzdem danke. Vielleicht weiß es ja hier noch jemand.

[JamesTKirk]

Zitat von Ginko:

Trotzdem danke. Vielleicht weiß es ja hier noch jemand.

Du könntest den Punkt von Uwe mit dem Beispiel hier kombinieren. Dabei geht es darum eigene Messages in einer eigenen WndProc zu behandeln, ähnlich wie Uwe es mit der TPopupList gezeigt hat. Lazarus bzw. die LCL ist hier intern anders aufgebaut, um die Cross Plattform Fähigkeit hinzubekommen, aber du kannst dennoch "Hacks" anwenden, um ein Widgetset speziell zu behandeln. Im Grunde musst du bei dem Beispiel statt Self.Handle das Handle deines Popupmenüs verwenden und den Code der WndProc anpassen (vergiss aber nicht dir die vorherige WndProc zu merken (dazu könntest du die Tag Property verwenden) und aufzurufen, wenn du nicht die gewünschte Nachricht erhalten hast (analog zu dem inherited in Uwes Beispiel)).

Eine wichtige Anmerkung ist hier jedoch, dass dies so nur unter Windows (Win32/64) funktionieren wird, unter Gtk2, Qt oder Carbon müsstest du eventuell andere Sachen ausprobieren, falls es dort überhaupt möglich ist andere Eingaben abzufangen...

Gruß,
Sven

[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;

[Uwe Raabe]

Zitat von 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;

Das ist Geschmackssache und in diesem Fall ist sicher beides akzeptabel.

Bei komplexeren Fällen mit einer Vielzahl an Abfragen finde ich meinen Ansatz etwas übersichtlicher und leichter wartbar (z.B. beim Einfügen, Löschen oder Umsortieren einzelner Fälle).

Der IF-EXIT Ansatz hat gegenüber dem IF-ELSE Ansatz allerdings den Vorteil, daß nicht bei jedem IF ein EXIT folgen muss und in dem Fall die folgenden Abfragen noch ausgeführt werden. Bei einer IF-ELSE Struktur ist das nur schwer und unübersichtlich realisierbar.

Übrigens: Ich halte EXIT, BREAK und CONTINUE ebenso wie Exceptions für sehr brauchbare Sprachkonstrukte zur Steuerung des Programmflusses. Aber das gehört alles eigentlich gar nicht in diesen Thread

[DeddyH]

Och, mit Exit, Break, Continue und Exceptions habe ich (im Gegensatz zu with) auch kein Problem, ich fand es nur in diesem Fall eher verwirrend. Aber das soll jetzt bloß nicht in Grundsatzdiskussionen ausarten

[Ginko]

Danke für die Antworten.
So mein Test lief erfolglos, wobei ich zugeben muss, ich kaum weiß was ich da mache...
Compilerfehler kommt keiner. Eine Reaktion bekomme ich nur wenn ich das Handle auf Self lasse und nicht auf PopupMenü.

Delphi-Quellcode:

uses
  Windows;

var
  PrevWndProc: WNDPROC;

function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam):LRESULT; stdcall;
  begin
    if uMsg=WM_MBUTTONDOWN then
    begin
      result:=Windows.DefWindowProc(Ahwnd, uMsg, WParam, LParam);  //not sure about this one
     // if result=windows.HTCAPTION then result:=windows.HTCLIENT;
      ShowMessage('Reaktion');
      exit;
    end;
    //Tag Property ??
    result:=CallWindowProc(PrevWndProc,Ahwnd, uMsg, WParam, LParam);
  end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 PrevWndProc:=Windows.WNDPROC(SetWindowLongPtr(PopupMenu1.Handle,GWL_WNDPROC,PtrInt(@WndCallback)));
end;

Was ist eigentlich HTCAPTION ?

[DeddyH]

HTCAPTION etc. sind hier erklärt: WM_NCHITTEST