Mousehook in Klasse/Komponente ?!

**DataCool**

Hi,

ich schreibe gerade eine Klasse in der unter anderem die Maus gehooked werden soll.
Zum hooken selber gibt es ja hier genug Beschreibungen/Anleitung;
allerdings weiß ich nicht wie ich den hook innerhalb einer Klasse starten soll,
den wenn ich die Callback function für den Hook innerhalb der Klasse habe wird diese nicht aktzeptiert.
Habe ich die Function außerhalb der Klasse fehlen mir zur weiteren Verarbeitung Werte aus der Klasse

Wie kann mann das umgehen ?

zusammenfalten · markieren

Delphi-Quellcode:

			function MouseProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

var CtrlID: Word;

    tmpComponent : TComponent;

begin

  case nCode < HC_ACTION of

    True:

      Result := CallNextHookEx(FMouseHook, nCode, wParam, lParam);

    else

      CtrlID := GetDlgCtrlId(PMOUSEHOOKSTRUCT(lParam)^.HWND);

    // mouse over an other control ??

    if FlastID <> CtrlID then begin

      FLastID := CtrlID;

    end;

    // did we have an double click event ?

    if wParam = WM_LBUTTONDBLCLK then begin

      MessageBeep(0);

      // ^ Zum Test ^

    end;

  Result := CallNextHookEx(FMouseHook, nCode, wParam, lParam);

end;

markieren

Delphi-Quellcode:

			  FMouseHook := SetWindowsHookEx(WH_MOUSE, @MouseProc, 0, GetCurrentThreadId());

  // ^^ schlägt fehl wenn MouseProc member der Klasse ist ......

1. Frage: Wie kann ich den Hook innerhalb der Klasse sauber realisieren ?
2. Frage: Wie bekomme ich die Komponente auf der WM_LBButtonDBLCLK ausgeführt wird ?

Danke,

Greetz Data

Mousehook in Klasse/Komponente ?!

Mousehook in Klasse/Komponente ?!

Forumregeln