Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Mauszeiger nur auf dem Formular (https://www.delphipraxis.net/5299-mauszeiger-nur-auf-dem-formular.html)

Trouble_Maker 31. Mai 2003 18:25


Mauszeiger nur auf dem Formular
 
Hi,
so ich bins nochmal mit ner Frage:

Gibt es einen Befehl oder Ähnliches, damit ich den Mauszeiger nur innerhalb meines Formulars bewegen kann! Soll also nur dort funktioneren. Geht das irgendwie?

danke

Trouble_Maker

Stanlay Hanks 31. Mai 2003 18:28

Du müsstest abfragen, ob die Positions der Maus innerhalb des Formulars ist und andernfalls den Mauszeiger unsichtbar machen. Ich hab aber glaub ich schon mal was gelesen, wie man den Mauszeiger auf ein bestimmtes Rechteck auf dem Bildschirm beschränken kann.

Trouble_Maker 31. Mai 2003 18:35

hmmm...
ich hab auch irgendwo mal was davon gelesen. Und ich weiss auch, dass es irgendwie geht.
Aber weiss echt nich, wie ich das anstellen soll.

Bitte um Hilfe


Trouble_Maker

Stanlay Hanks 31. Mai 2003 18:47

Wenn du sagst: Screen.cursor := -1 dann wird der Cursor versteckt...aber leider nur innerhalb der eigenen Form.

Luckie 31. Mai 2003 18:49

Zitat:

The ClipCursor function confines the cursor to a rectangular area on the screen. If a subsequent cursor position (set by the SetCursorPos function or the mouse) lies outside the rectangle, the system automatically adjusts the position to keep the cursor inside the rectangular area.
Code:
BOOL ClipCursor(          const RECT *lpRect
);

Trouble_Maker 31. Mai 2003 18:53

hmm...

@Luckie: bin immernoch Anfänger, kannst du bitte dein Code, Posting genauer erklären ?!?

danke

Trouble_Maker

Trouble_Maker 1. Jun 2003 19:22

huhu ?!?

TheXception 1. Jun 2003 19:55

So müsste das funktionieren:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  Rec: TRect;
begin
  Rec.Left := Left;
  Rec.Top := Top;
  Rec.Right := Left + Width;
  Rec.Bottom := Top + Height;
  ClipCursor(@Rec);
end;
Mausbereich freigeben:

Delphi-Quellcode:
ClipCursor(nil);

Mirilin 1. Jun 2003 19:55

Link

Stanlay Hanks 1. Jun 2003 20:14

Ich hab doch gewusst, dass ich das irgendwo gelesen hab :wink: Aber gilt das eigentlich nur, solange das Programm auch aktiv is??


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:46 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz