Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#2

Re: Fadenkreuz um Maus

  Alt 1. Jun 2009, 22:39
Am einfachsten erzeugst du einfach 2 Formulare (BorderStyle: bsNone), das erste so hoch wie der Bildschirm und 1 Pixel breit, das zweite so Breit wie der Bildschirm und 1 Pixel hoch. Dann nimmst du einen Timer mit kleinem Intervall und änderst im OnTick die Positionen der Formulare, sodass sie die Cursorposition anzeigen. Die Formulare sollten außerdem Formstyle fsStayOnTop haben. Wenn du auch die kleine Lücke haben willst, um klicken zu können, kannst du ja stattdessen 4 Formulare nehmen. Oder du spielst ein bisschen mit Regions herum.

Die Cursorposition kriegst du über GetCursorPos() heraus, die Ausmaße des Bildschirm mit Screen.Width bzw Screen.Height.
  Mit Zitat antworten Zitat