Thema: Delphi Form.OnMouseMove

Einzelnen Beitrag anzeigen

Mikro

Registriert seit: 28. Jun 2007
43 Beiträge
 
#7

Re: Form.OnMouseMove

  Alt 5. Jul 2007, 17:18
Hi,

ich versuche sowas wie einen Bildschrimschoner zu bauen, zumindest ist das Prinzip gleich. Einfach, wenn die Maus nicht mehr bewegt wird, soll nach 1sek oder so irgendwas passieren. WOllte das mit dem OnMouseMOve und einem Timer machen, aber der setzt sich, sobald die Maus einmal bewegt wurde...
hatte das hier:
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
     form2.close;
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     timer1.interval:=6000;
end;
Also jedesmal, wenn die Maus bewegt wird, soll der Interval des Timers hochgesetzt werden, so dass er gar nciht ans Ende kommt. Aber das interessiert den Timer wohl im Betrieb nicht. Jmd ne andere Idee?
  Mit Zitat antworten Zitat