Einfach das Popup Menü schließen

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