Discussion :

[Alcatîz]

Bonjour !

Je suis en train de m'arracher les cheveux pour essayer de gérer les actions du clavier dans un dialogue non modal descendant de tDialog. Ce que j'appelle les actions du clavier, c'est Enter pour faire OK, Escape pour annuler et la tabulation pour passer d'un contrôle à l'autre.

J'exécute pourtant bien la méthode EnableKBHandler dans le constructeur Init de tDialog.

Je me suis déjà tiré d'affaire dans d'autres circonstances, c'est-à-dire dans un dialogue de statut, en créant une méthode qui parcourt la file d'attente des messages. Cette méthode était exécutée par la fenêtre parent du dialogue à chaque action :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Procedure tDialogueStatut.FileMessages;
Var Msg : tMsg;
Begin
  while PeekMessage(Msg,0,0,0,pm_Remove) do
    if not IsDialogMessage(hWindow,Msg)
       then
         begin
           TranslateMessage(Msg);
           DispatchMessage(Msg);
         end;
End;

Mais dans le cas présent, la fenêtre parent du dialogue n'effectue aucune action et donc je ne peux pas reprendre la même technique.

Quelqu'un aurait-il une petite idée ?

P.S. La question étant spécifique à la bibliothèque OWL du Pascal Objet, je ne l'ai pas posée sur le forum Développement Windows.

[M.Dlb]

Une idée farfelue : tu peux peut-être utiliser un timer pour exécuter la procédure de recherche de messages pour cette boîte de dialogue ?

[Alcatîz]

Merci pour ta réponse !

J'envisagerai ce genre de solution en dernier recours. Je vais indaguer du côté des messages de notification des contrôles mais sans grand espoir.
Si je ne trouve pas, je vais devoir ouvrir le capot de l'objet tDialog et aller trifouiller dans le moteur...

Si j'exécute le dialogue de manière modale (tApplication.ExecDialog), tout va pourtant parfaitement. C'est quand je l'exécute avec tApplication.MakeWindow que le traitement des messages est différent.

[M.Dlb]

Est-ce que ta fenêtre a le focus lorsque tu essaies d'appuyer sur les touches Enter, Space et Tab ? Si elle a le focus, je ne vois pas comment ca pourrait ne pas marcher