SetCapture

[MatthiasW]

Ich habe mit SetCapture(Handle) die Maus meinem Control zugeordnet (abgeleitet von TCustomControl). Aber wie komme ich jetzt an die Mausevents? Muß ich dazu jetzt einen lokalen Hook installieren Die MouseDown/Move - Events werden nicht ausgelöst.

[toms]

Hi,

Hast du schon eine Lösung gefunden?

[MatthiasW]

Zitat von toms:

Hast du schon eine Lösung gefunden?

ja habe ich. Sorry das ich erst jetzt antworte. Es kommt darauf an das der Handle des Application - Objects verwendet wird.

Delphi-Quellcode:

  //start subclassing
  OldWndProc := Pointer(SetWindowLong(Application.Handle, GWL_WNDPROC,
                       Integer(@CalenderBoxWindowProc)));
  //all mouse message to this control
  SetCapture(Application.Handle);

function CalenderBoxWindowProc(wnd: HWND; Msg: Cardinal; wParam, lParam: Integer): Integer; stdcall;
begin
  //subclassing procedure for the mouse events if colorbox is showing
  case Msg of
    WM_LBUTTONDOWN:
    begin
      //code der ausgeführt werden soll wenn die mouse betätigt wird  
    end;
  end;
end;