Mouse Bewegung überprüfen

[Nils_13]

Hi,

ich möchte (wie bei einem Bildschirmschoner) prüfen ob sich die Mouse bewegt, wenn ja wird das Programm geschlossen, es gibt da irgendeine möglichkeit mit den WindowsMessages, aber in der Unit finde ich nicht die procedure, gibt es noch andere Lösungen, oder könnt ihr mir die WindowsMessages Lösung sagen?

[Torpedo]

Du kannst mit Mouse.CursorPos.X bzw Y die Position in einer Variable speichern und später überprüfen, ob sich die Position geändert hat.

[Oxmyx]

Die Windows-Message, die beim Bewegen der Maus gesendet wird, heißt WM_MOUSEMOVE.

[Airblader]

Für dich dürfte das hier wohl genügen:

Delphi-Quellcode:

procedure TForm1.HandleMessage(var Msg:TMessage);
begin
 if Msg.msg = WM_MOUSEMOVE then
   Form1.Close();  

 Form1.wndproc(Msg);
end;

procedure TForm1.OnCreate(Sender:Tobject);
begin
 Form1.Windowproc:=Form1.HandleMessage;
end;

Das ganze ist ein etwas umgebauter Code von hier

[Muetze1]

Moin!

Empfehlung: überall "Form1." weglassen oder wenn, dann "Self." nehmen. Der Code ist nicht mehr brauchbar, wenn man die Form1 Variable nicht mehr nutzt oder hat. Warum eine Klasse die mehrfach instanziierbar ist dadurch auf eine Instanz beschränken auf die ihre Funktionalität wirkt?

MfG
Muetze1

[Nils_13]

Hi,

1. der Code läuft nicht (der Code erfüllt nicht den Sinn für einen Bildschirmschoner)
2.

Delphi-Quellcode:

if ParamCount > 0 then begin
  if ParamStr(1) = '/c' then
  else if ParamStr(1) = '/s' then
  else  Application.Terminate;
end else   Application.Terminate;

wird leider wie der code von Airblader sofort geschlossen zumindest bei mir, das Create Ereignis benötigt man sowieso für den Bildschirmschoner, weil man ihn sonst nicht in den Desktop-Eigenschaften auswählen kann.

[malo]

Was spricht denn gegen das OnMouseMove-Event? :gruebel:

[Nils_13]

Probiers aus, dann wird es dir schon auffallen, das OnMouseMove nur bedeuted, dass die Mouse sich über einem Objekt oder einer Form befindet.

[flomei]

http://www.mephzara.com/wiki/wiki_g....chonerTutorial
http://www.tutorialbox.com/tutors/delphi/Tut.htm
...
Diese Liste könnte noch so lang werden aber warum nicht einfach mal selber suchen?
Delphi AND Screensaver AND Tutorial Screensaver OR Bildschirmschoner [df]Screensaver OR Bildschirmschoner[/df]

Warum suchen die Leute nicht erstmal... :roll:

MFG Florian :hi:

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
inc(MMoveClose);
if MMoveClose > 3 then close;
end;

Wird in 3 Sekunden geschlossen ... verdammt.

[flomei]

Guck dir bitte die Links an...

MfG Florian :hi:

[Nils_13]

Wenn sich die Mouse bewegt wird OnMouseMove auf true gesetzt, wenn nicht auf false, nur wie findet man heraus ob sich die Mouse bewegt?!

[flomei]

Nils, hast du dir die Tutorials da oben durchgelesen?
Hast du schon bei Google gesucht? Oder im DF? Oder hier in der DP?

Hast du eigentlich überhaupt irgendwas anderes gemacht als Code zu kopieren und festzustellen das er nicht läuft?

MfG Florian :hi:

P.S.: Um deine Frage zu beantworten: Du hast sie dir selbst beantwortet...

[Nils_13]

*snipp*

edit, weil hier nur streitereien am ende daraus entstehen ...

[flomei]

*rofl* Sorry aber auf so einem Niveau mach ich hier nicht weiter...

Vielleicht würde ich ja an meiner Seite weitermachen wenn du hier nicht so dickköpfig wärst und auch mal Links folgen würdest etc.
Ich such die dämlichen Links raus und du fängst jetzt mit so einem Mist wie "deine Homepage machste auch nich weiter" an...

Wenn ich nicht grün leuchten würde, dann würde ich jetzt die Fassung verlieren.
So werd ich einfach nicht mehr antworten und hoffen das sich wer anders mit dem Kind hier abgibt... :roll:

MfG Florian :hi:

Sorry, Mods. Musste raus...

[Nils_13]

@flomei: sorry :oops:, wir befinden uns gerade wirklich eher im tiefen Niveau, aber ich wollte den Beitrag editieren, da kam ein phpBB Critical Error :(

[Die Muhkuh]

Hört auf, euch die Köpfe zusammen zu schlagen :warn:

Nils, bei Flomei's ist alles dabei was du wissen musst.

Delphi-Quellcode:

Wenn sich die [b]Mouse bewegt[/b] wird [b]OnMouseMove [/b]auf [b]true [/b]gesetzt, wenn nicht auf false, nur wie findet man heraus ob sich die Mouse bewegt?!

Das hast du dir doch schon selbst beantwortet.

[Nils_13]

jupp :wall:

[gothic_mike]

Zitat:

Zitat von flomei

*rofl* Sorry aber auf so einem Niveau mach ich hier nicht weiter...

Vielleicht würde ich ja an meiner Seite weitermachen wenn du hier nicht so dickköpfig wärst und auch mal Links folgen würdest etc.
Ich such die dämlichen Links raus und du fängst jetzt mit so einem Mist wie "deine Homepage machste auch nich weiter" an...

Wenn ich nicht grün leuchten würde, dann würde ich jetzt die Fassung verlieren.
So werd ich einfach nicht mehr antworten und hoffen das sich wer anders mit dem Kind hier abgibt... :roll:

MfG Florian :hi:

Sorry, Mods. Musste raus...

Einfach langsam von 10 abwärts bis null zählen, tief durchatmen und beiträge von Nils_13 ganz einfach überlesen, wenn man sich so ansieht, was er hier im Forum so von sich gibt und wie er gutgemeinte ratschläge befolgt, da fällt mir echt nix mehr ein... :wall:

10...9...8...7...6...