Einfach das Popup Menü schließen

[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

[Ginko]

Ah ok danke, auch wenns mir nicht wirklich weiter hilft.