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