Hi, Delpher,
danke für eure bisherige Hilfe, um zeitgesteuert eine Prozedur aufrufen zu können.
Ich bin jetzt soweit, dass die "Stoppuhr" anfängt zu laufen, wenn die Maus
untätig ist - und sich resettet, wenn eine Mausaktion war, aber nur, wenn die Maus über dem Formular schwebt, und nicht etwa über Groupboxen, dann läuft sie einfach weiter und resettet sich nicht, wenn eine Mausaktion war. Beim Übergang von Formular zu einer Groupbox wird auch resettet.
Wie komme ich an einer einzigen Stelle an diese Ereignisse heran, ich brauche sie für
die gesamte Anwendung (für das ganze Formular).
Was muss ich da noch veranlassen?
Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| private:
procedure CheckTimeOutHandler(sender:Tobject; var done:Boolean);
var lastEventTimestamp : TDateTime;
procedure TForm1.CheckTimeOutHandler(sender:Tobject; var done:Boolean);
begin
label60.caption := timetostr(now - lasteventtimestamp);
if (now - lastEventTimestamp > 5*60*1000) then
begin
showmessage('Neuanmeldung ist fällig'); image1dblclick(self)
end;
end;
procedure TForm1.FormCreate(Sender: TObject); begin
windowstate := wsmaximized; home := getcurrentdir;
BorderIcons := BorderIcons - [biSystemMenu];
Forms.Application.OnIdle := CheckTimeoutHandler;
End;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
lasteventTimestamp := now;
end; |
Vielen Dank für Hilfe,
Detlef Annies
Moderiert von 
Christian S.: Delphi-Tags repariert
