TWebbrowser Formular verschieben UND klickbar

[hathor]

Folgender Code funktioniert bei mir:

Delphi-Quellcode:

procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message = WM_LBUTTONDOWN) then
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

Anmerkung:
Ich habe CRM : TChromium auf ein Panel gesetzt.
Allerdings finde ich es NICHT gut, bei einer Message-gesteuerten Komponente wie TChromium mit solchen Aktionen dazwischen zu fummeln.
Das ist auch unnötig.
TChromium ist MISERABEL programmiert und haut 100e Messages raus, ohne dass irgend etwas davon nötig ist!!!