Discussion :

[Greldinard]

Bonjour à tous,

Je souhaiterais implémenter un évènement sur un composant de type TEdit qui serait déclenché avant la perte de focus dans les cas possible :

Appui sur la touche TAB ou ENTREE
Clic sur un autre composant de la fiche
Etc…

Le but étant d’avoir une procédure avec une variable de type booléenne CanClose/CanExit que je puisse fixer. Si je fixe cette variable à VRAI, je perds le focus sur mon composant et je vais sur le suivant mais si je fixe la variable à faux, je fais apparaitre une bulle d’aide et je reste sur mon composant.

Apparemment il n’y a rien de déjà fait ni dans la VCL ni dans la JVCL…

Pouvez-vous m’aider SVP ?

[tarekk73]

bon jour

Je souhaiterais implémenter un évènement sur un composant de type TEdit qui serait déclenché avant la perte de focus

je pense a l'evenement onexit

[Greldinard]

Merci tarekk73 pour ta réponse,

L'évènement OnExit a été ma première idée. Le problème c'est qu'il est déclenché une fois que le composant a déjà perdu le focus. En pratique si je clique sur un autre composant de la fiche, l'autre composant a son évènement OnEnter déclenché (avec activation du focus) puis l'évènement OnExit du composant que je viens de quitter est déclenché.

En clair, si je remet le SetFocus à mon composant d’édition dans l'évènement OnExit, je ne fait qu'une "bidouille" puisque concrètement :
- le composant perd le focus,
- un autre le prends
- puis le composant initial le récupère.

Merci pour ton idée mas ce n'est pas exactement ce que je souhaite faire.

[Lung]

Peut-être avec un TApplicationEvents, qui surveillerait le message qui va bien.
Plus qu'à trouver le bon.

[Greldinard]

Lung, merci pour ta proposition.

Je ne connaissais pas le TApplicationEvents mais je vais piocher et je vous tiens au courant.

[tarekk73]

bon jour

mais si je fixe la variable à faux, je fais apparaitre une bulle d’aide et je reste sur mon composant.

attention! si vous fixer le focus sur un composant l'application sera bloqué.
exemple

Code :

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

1
2
3
4
procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.SetFocus;
end;

[seabs]

Bonjour,

Quand je suis dans cette situation, j'utilise les lignes de code suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
type
  private
    FTest: Boolean;
    procedure wmKEYDOWN(var Message :TMessage); message WM_KEYDOWN;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest := True;
end;
 
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if FTest then
    PostMessage(Handle, WM_KEYDOWN, 0, 0);
end;
 
procedure TForm1.wmKEYDOWN(var Message: TMessage);
begin
  Edit1.SetFocus;
end;

Ainsi, tu peux décider de perdre ou pas le focus. Pour connaître le composant de retour, il est possible d'utiliser le Tag de chaque composant.

Tu adaptes ça à ta situation réelle.

Test fait avec Delphi 7 et Windows 7 x64

A+

[Greldinard]

Tout d'abord, merci à tarekk73, Lung et seabs pour leurs idées et propositions.

J'ai finalement réussis à faire ce que je voulais selon le principe suivant :

1. J'intercepte tous les messages Windows avant qu'ils ne soient envoyés aux composants de ma fiche.
2. Si le focus est donné à un composant que je dois contrôler et que je détecte un message Windows qui peut faire quitter le composant (clic de souris, tabulation, etc.) j'effectue mes contrôles.
3. Si les contrôles échouent je dis à Windows que j'ai déjà traité son message et l'action (clic, etc) reste sans effet.

Dans la pratique, ce n'est pas si compliqué. J'ai créé une procédure TraiteMessages avec les mêmes paramètres que le type TMessageEvent.
L'astuce principale étant l'utilisation du paramètre Handled qui permet de dire à Windows que le message à déjà été traité.
Les messages sont redirigés via l’événement OnMessage de la variable globale Application.

Voici un exemple trivial de la mise en pratique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TMainForm.TraiteMessages(var Msg: TMsg; var Handled: boolean);
begin
  if AdvEdit1.SetFocus then
    // Tentative de sortie du composant...
    if (Msg.message = WM_LBUTTONDOWN) or (Msg.message = WM_RBUTTONDOWN) or
       (Msg.message = WM_LBUTTONDBLCLK) or (Msg.message = WM_RBUTTONDBLCLK) or
       ((Msg.message = WM_KEYDOWN) and ((Msg.wParam = VK_TAB) or (Msg.wParam = VK_RETURN))) then
      Handled:= TryStrToInt(AdvEdit1.Text, Value); // Sortie autorisé que si le contrôle est OK
end;
 
procedure TMainForm.FormShow(Sender: TObject);
begin
  Application.OnMessage:= TraiteMessages;
end;
 
procedure TMainForm.FormHide(Sender: TObject);
begin
  Application.OnMessage:= nil;
end;