Timer, Tasteneingabe und Mausklicks

[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