Folgende Procedure setzt den unsichtbaren Cursor auf Default und beendet das Programm, in diesem Fall einen Bildschirmschoner.
Angewendet wird die Procedure bei OnMouseMove.



Das funktioniert einwandfrei bei einem Monitor.
Habe ich zwei Monitore an einem Rechner wird der Cursor noch auf Default gesetzt, zum Schließen
des Programms kommt es allerdings nicht. (Cursor befindet sich auf dem Hauptmonitor, wo auch der Schoner läuft).
Vielleicht hat jemand eine Lösung.

Moderiert von Gausi: I- durch Delphi-Tags ersetzt

Ich hab mal anstatt Close Halt eingetragen, da funktionierts auch mit 2 Monitoren.
Warum Close nicht funktioniert weiß ich allerdings nicht.

Der Unterschied dabei ist, dass Halt das Programm sofort abstürzt, deshalb ist das kein guter Weg. Wenn Close nicht funktioniert, dann muss dabei etwas schief gehen. Allerdings hat das nichts mit der Anzahl der Monitore zu tun.

Ich versteh die Frage nicht..

du hast diese Prozedur in deinem eigenen Programm, dass einen Bildschirmschoner beenden soll, korrekt?
Wenn ja, was hat diese Prozedur dann in irgendeinem OnMouseMove zu suchen? MouseMove wird ausgelöst, wenn man die Maus bewegt. Und durch diese Bewegung wird doch schon der Bildschirmschoner deaktiviert.

Oder wird dieses Programm als Bildschirmschoner ausgeführt? Wenn ja, was machst du da mit dem Cursor?

Erklär die Frage nochmal.

Das Programm ist ein Bildschirmschoner und soll mit der Mausbewegung geschlossen werden.
Damit der Cursor nicht stört, setze ich ihn beim Start des Schoners auf unsichtbar.
Die Procedure rufe ich unter OnMouseMove auf. Wenn ich nur Close unter OnMouseMove eingebe, ist das zu
empfindlich, der Schoner bricht bei jeder Erschütterung des Tisches ab, daher die Procedure.
Der Cursor muss vor dem Schließen wieder auf Default gesetzt werden.
Die Procdure funktioniert, wie schon geschrieben nicht bei 2 Monitoren. Kann sein dass das nicht der Grund ist aber bei
einem Monitor funktioniert das.

Sockenwurm hat folgendes geschrieben :

Das Programm ist ein Bildschirmschoner und soll mit der Mausbewegung geschlossen werden. Damit der Cursor nicht stört, setze ich ihn beim Start des Schoners auf unsichtbar.

Das beides macht Windows doch schon für dich..?!

Ich hab langsam die Befürchtung, dass du dein Programm "normal" startest, statt von Windows über Eigenschaften von Anzeige -> Bildschirmschoner.

Ich starte das Programm schon über Eigenschaften - Bildschirmschoner.
Windows startet dann den Schoner nach der Zeit die ich eingestellt habe.
Für den Abbruch des Schoners (z. B. durch Mausbewegung oder Tastendruck) bin aber doch ich verantwortlich.
Ich schreibe schon seit Jahren Bildschirmschoner auch mit dieser Procedure,
das hat bis jetzt immer gut funktioniert.

Hm.. ich war bisher der Meinung, dass Windows das Beenden des Bildschirmschoners übernimmt.
Nagut, kann ich nichts zu sagen, da ich bisher noch keinen eigenen gebaut habe.

Dann kann ich leider auch nicht helfen. Warum das close fehlschlagen sollte, wüsste ich nun auch nicht.
Wenn die ganze If-Abfrage nicht abgearbeitet wird, hätte ich gesagt, dass die CursorPos vielleicht ins negative wandert. Aber wenn du sagst, der Cursor wird zurückgesetzt, aber das close nicht ausgeführt - kA.

Xentar hat folgendes geschrieben :

Hm.. ich war bisher der Meinung, dass Windows das Beenden des Bildschirmschoners übernimmt. Nagut, kann ich nichts zu sagen, da ich bisher noch keinen eigenen gebaut habe.

Er hat Recht, das muss man alles selber machen.

Warum nimmst du nicht die if-Abfrage mal raus und schließt einfach ohne. Und warum nimmst du das Schließen nicht in des Formes OnMouseMove und setzt bei der Form z. B. KeyPreview := true und schließt dann auch im OnKeyPress.

Wenn ich nur Close unter OnMouseMove eingebe, ist das zu
empfindlich, der Schoner bricht bei jeder Erschütterung des Tisches ab, daher die Procedure,
die dann erst schließt wenn die Abweichung > 10 ist. Bei OnKeyPress geht das und das habe ich auch
so gemacht.

Aha, was machst du denn da nebenbei auf dem Tisch .
Ich würde 3 Möglichkeiten sehen:
1. Mit Haltepunkte und Ergebnisse auswerten
2. Einfach mal testweise die Abfrage rausnehmen. Manchmal wird sowas gar nicht aufgerufen
3. Im OnMouseMove prüfen

Das Blöde ist nur, dass ich das Ganze an einem Computer mit 1 Monitor entwickle und da funktioniert es ja.
Muss mir also mal einen 2. Monitor besorgen und dem, so wie Du beschrieben hast auf den Grund gehen.
Trotzdem Danke an alle die sich meinem Problem gewidmet haben.

Was ist denn CP?

Ausserdem prüft du nur die X-Position der Maus,
vieleicht hat dein Tester, mit den 2 Monitoren, die Maus einfach nur nach oben geschoben (Änderung in Y)?

cp ist die X-Cursorposition die ich beim Start des Schoners abgefragt habe.
Relativ unwahrscheinlich bei einer Abweichung von 10 die Maus ganz gerade nach oben oder unten zu bewegen,
zumal ich selber an einem Computer mit 2 Monitoren getestet habe. Zur Entwicklung alledings steht mir
nur ein Computer mit 1 Monitor zur Verfügung.