Timer, Tasteneingabe und Mausklicks

[delphinia]

Hallo,

zu dem Titel erstmal Entschuldigung mir ist nichts besseres eingefallen.

Ich habe eine Form. Die solange der Benutzer auf der Form Eingaben tätigt und oder mit der Maus drauf rumklickt.. Aktiv sein soll.
Sobald aber keine Eingaben mehr erfolgen soll nach einer bestimmten Zeit das Fenster geschlossen werden (automatisch).. sollte aber innerhalb der Zeit X wieder eine Eingabe erfolgen egal ob Tastatur oder Maus - so muss wieder von vorne gezählt werden!


Wie fange ich nun da an?

[Cöster]

Hm, also die einfachste Methode wär wohl mit nem normalen Timer:

Bei Tastatureingabe oder Mausklick: Timer disablen und sofort wieder enablen (damit er zurückgesetzt wird). Im OnTimer-Event deaktivierst du das Fenster.
Das Intervall stellst du auf so lange, wie es dauern soll, dass die Form deaktiviert wird.

[shmia]

Du nimmst eine TTimer-Komponente; wenn der Timer abläuft, rufst du die Methode Release auf.
Dann überladest du die procedure WndProc:

Delphi-Quellcode:

procedure WndProc(var Message: TMessage);override;

procedure TForm1.WndProc(var Message: TMessage);
begin
   inherited WndProc(Message);
   case Message.Msg of
      WM_CHAR, WM_SETFOCUS, WM_ACTIVATE:
      begin
         Timer1.Enabled := False;  // Stop
         Timer1.Enabled := True;   // Neustart
      end;
   end;
end;

[delphinia]

Also bei Mausklicks auf Buttons funktioniert das ganze!
Aber die EIngaben in Editfelder werden ignoriert und nach ablauf der Zeit X wird das fenster geschlosse!

ist es wichtig, das die Edits auf in einem Panel liegen?

[Christian Seehase]

Moin Doreen,

hast Du beim Formular auch KeyPreview auf true gesetzt?

[delphinia]

Ja nun! Aber das ändert nichts an der letzten Aussage!


Habe gerade ein ganz neues Projekt angefangen und nur den obigen Code udn 2 Edits und nen Button auch da nix trotz
KeyPreview = true;

[Hawkeye219]

Hallo Doreen,

vielleicht hast du mit der Komponente TApplicationEvents mehr Glück. Hier die benötigten Ereignisbehandlungsroutinen:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of        
    WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST:
      begin
        Timer1.Enabled := False;
        Timer1.Enabled := True;
      end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Close;
end;

Gruß Hawkeye

[delphinia]

@Hawkeye219

Das scheint super zu funktionieren!
Danke