Comment fonctionne l'événement OnMouseDown sur mon MainForm avec Firemokey?

Question

J'utilise Tmainform.OnKeyDown et il se déclenche toujours correctement, en plus des contrôles ou des cadres ajoutés au formulaire.

J'ai besoin du même comportement pour OnMouseDown.

Mon but est de suivre l'activité de l'utilisateur. Après x minutes sans clics ni clics de souris, je veux fermer l'application.

Modifier: TMainForm.OnMouseDown ne se déclenche jamais. Je ne veux rien faire de l'événement, sachez simplement que l'utilisateur est en vie et qu'il clique.

Answer 1

Pour que le formulaire puisse voir les séquences de touches antérieures au contrôle actif, vous devez définir la propriété KeyPreview dans l'inspecteur d'objets de formulaire.

Vous pouvez aussi le faire via le code: Form1.KeyPreview := True;

Il y a une explication importante dans la réponse acceptée ici: How does Delphi's KeyPreview work?

En ce qui concerne votre requête de la souris, comment savez-vous qu'il ne fonctionne pas si vous ne fais rien ici?

Mettez ce code dans votre événement OnMouseDown forms;

PROCEDURE TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
BEGIN 
    CASE Button OF 
    mbLeft: showmessage('Left Mouse Button!'); 
    mbRight: showmessage('Right Mouse Button!'); 
    mbMiddle: showmessage('Middle Mouse Button!'); 
    END; 
END; 

J'espère que cela est utile et répond à votre question.