Thema: Delphi Mauszeiger ausblenden

Einzelnen Beitrag anzeigen

ninja

Registriert seit: 3. Mär 2003
90 Beiträge
 
Delphi 6 Personal
 
#5

Re: Mauszeiger ausblenden

  Alt 22. Dez 2003, 23:15
Zitat von phlux:
Joah das geht
Das einfangen des Cursors jetz.

Also zuerst musst du dirn Rect erstellen in dem der Mauszeiger eingesperrt werden soll, das erstellen wir mit der Maße und der Position eines Panels (Panel1):
Delphi-Quellcode:
var
  aRect: TRect;

//Jetz zum einsperren:
begin
  with aRect do
  begin
    Left := Panel1.Left;
    Top := Panel1.Top;
    Right := Panel1.Left + Panel1.Width;
    Bottom := Panel1.Top + Panel1.Height;
  end;
  ClipCursor(@aRect);
end;

//Jetz zum freilassen
begin
  ClipCursor(nil);
end;
Löls* einfach mal so runtergehackt, keine Garantie obs fehlerfrei ist, falls es Prob oder Frage gibt einfach fragen

mfg phlux
hallo, danke für die schnelle antwort.
ich habe diesen code in meinem 2.formular eingebaut in FormCreate.
es schein zufunktionieren, allerdings auch auf dem 1.Formular, was zuerst gestartet wird.
und das mit dem freilassen hab ich nicht ganz verstanden.
gruß ninja
  Mit Zitat antworten Zitat