TWebbrowser Formular verschieben UND klickbar

[Satyr]

Huhu,

ich habe noch ein (hoffentlich kleines) Problem mit TWebBrowser.

Ich möchte das man nicht nur mit der Titelleiste sondern überall das Fenster verschieben kann. Das war keine große Sache mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin

  if (Msg.Message = WM_LBUTTONDOWN) then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
  end;

end;

Nur habe ich dann das Problem, im TWebBrowser nicht mehr klicken zu können. Ich habe schon versucht noch gleichzeitig WM_MOUSEMOVE abzufragen, das ändert aber leider nichts. Gibt es da noch Möglichkeiten?

Gruß,
Andreas