Maus ausblenden trotz TWebbrowser

[hathor]

Delphi-Quellcode:

SetCursorPos(0,0); // oder irgendwo hin
r := BoundsRect;
    ClipCursor(@R);// dann sperre ihn ein !
//irgendwann später...
//freigeben nicht vergessen:
ClipCursor(nil) ;

[Jumpy]

Habs mal versucht umzusetzen. Passiert aber nix. Weder wird der Mauszeiger versetzt, noch verschwindet er o.ä. Habs wohl nicht richtig verstanden:

Delphi-Quellcode:

procedure TBrowserMain.Timer1Timer(Sender: TObject);
var r:trect;
begin
  //Cycle
  //[...]

  //Maus Ausblendung
  if Maus = 0 then
    begin
    SetCursorPos(0,0); // oder irgendwo hin
    r := BoundsRect;
    ClipCursor(@R);// dann sperre ihn ein !
    end
  else
    Maus:=Maus-1;
end;

procedure TBrowserMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ((X-XOld)*(X-XOld)>2) And ((Y-YOld)*(Y-YOld)>2) then
    begin
    ClipCursor(nil);
    Maus:=5;
    end;
  XOld:=X;
  YOld:=Y;
end;

[hathor]

Mit einem Timer macht man das normalerweise nicht.

Restrict The Mouse Movement
http://delphi.about.com/od/vclusing/a/mouseadvanced.htm
.
Andere Lösung:
http://www.greatis.com/delphicb/tips...idecursor.html

[Jumpy]

Letzteres geht schon mal Ansatzweise. Nach Programmstart verschw. die Maus und kommt erst nach Mausemove wieder. Danach verschwindet sie aber nicht mehr. Vllt. ein Logikfehler. Experementier ich morgen mal weiter.

Vielen Dank schon mal soweit.

[Edlmann]

und ich würd vllt statt

if ((X-XOld)*(X-XOld)>2) And ((Y-YOld)*(Y-YOld)>2) then das ganze so abfragen:

if ((X-XOld)*(X-XOld)+(Y-YOld)*(Y-YOld)>4) then da ansonsten Bewegungen entlang einer Achse nicht interpretiert werden.

[Jumpy]

Jo das macht Sinn. War bis jetzt nicht aufgefallen, da meine vor Frust zitternden Hände eh keine gerade Linie ziehen konnten. Bau ich ein. Danke.