AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mouse bewegung registrieren

Ein Thema von Reini64 · begonnen am 14. Sep 2004 · letzter Beitrag vom 14. Sep 2004
Antwort Antwort
Reini64

Registriert seit: 3. Mär 2004
Ort: Ulmen
83 Beiträge
 
#1

Mouse bewegung registrieren

  Alt 14. Sep 2004, 21:40
hi,

wie kann ich in meiner Anwendung übergeordnet feststellen ob die Mouse bewegt worden ist oder nicht - so'ne Art Bildschirmschoner -

ihc wäre für einen Vorschlag sehr dankbar.

  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Mouse bewegung registrieren

  Alt 14. Sep 2004, 21:42
Wenn du deine Anwendung im Vollbildmodus betreibst, könnte dir das Ereignis OnMouseMove helfen.
  Mit Zitat antworten Zitat
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Mouse bewegung registrieren

  Alt 14. Sep 2004, 21:43
während du mit dem Programm arbeitest, könntest du in einem Timer die aktuelle Mausposition mit einer gespeicherten Vergleichen.

Sonst müsstest du nach einem entsprechenden Hook suchen.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
Reini64

Registriert seit: 3. Mär 2004
Ort: Ulmen
83 Beiträge
 
#4

Re: Mouse bewegung registrieren

  Alt 14. Sep 2004, 21:47
die Anwendung läuft als Touchscreen im Vollbildmodus. Ich möchte wenn z.B. die Mouse 10 minuten nicht bewegt worden ist ein Video starten, das aber sofort beendet werden soll sobald man auf den Touchscreen Tipp - also die Mouse bewegt.
  Mit Zitat antworten Zitat
Reini64

Registriert seit: 3. Mär 2004
Ort: Ulmen
83 Beiträge
 
#5

Re: Mouse bewegung registrieren

  Alt 14. Sep 2004, 23:22
ich habe die Lösung gefunden !
Delphi-Quellcode:
var
  p: TPoint;
begin
  p := Mouse.CursorPos;
  LabelP.Caption := 'X: ' + IntToStr(p.X) + ' / Y: ' + IntToStr(p.Y); //Koordinaten ausgeben
  p.X := p.X + 100; //X-Wert und
  p.Y := p.Y + 100; //Y-Wert verändern
  Mouse.CursorPos := p; //Neue Koordinaten übergeben
end;
durch Abfrage des Labels über einen Timer kann man den Unterschied feststellen und entsprechend auswerten



[edit=MrSpock]Doppelpost gelöscht. Mfg, MrSpock[/edit]
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz