Discussion :

[AlfredKr]

Bonjour,

J'ai juste une question qui va paraitre simpliste mais elle me perturbe.
J'ai un tedit (montexte) et un bouton.
Dans le Tedit j'ai un évènement editenter.
Au milieu de la procédure de l'évènement click du bouton, je fais un montexte.setfocus.
Le programme va-t'il effectuer les instructions situées après le setfocus et ensuite entrer dans l'évènement editenter ou l'inverse ou autre chose....

Qui peut m'aider,
Merci d'avance,

Fred

[ShaiLeTroll]

C'est une bonne Question !

En fait, le SetFocus sur un Edit va modifier le ActiveControl de la Form Parent de l'Edit, appelle Windows.SetFocus qui modifie directement le Focus du Control (là les Events OnEnter et OnExit) puis va envoyer un message CM_UIACTIVATE pour indiquer que le Focus a bien changer !

Et Donc si l'on fait un code simple, on constate que le SetFocus se produit immédiatement !

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
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Avant SetFocus');
  Edit3.SetFocus();
  ShowMessage('Après SetFocus');
end;
 
procedure TForm1.Edit3Enter(Sender: TObject);
begin
  ShowMessage('Edit3Enter');
 
end;
 
procedure TForm1.Button2Exit(Sender: TObject);
begin
  ShowMessage('Button2Exit');
 
end;

[AlfredKr]

Merci beaucoup pour votre réponse.
Entretemps, j'ai fait un debugging pas à pas dans la procédure possédant l'appel setfocus et ai remarqué que le programme, après l'instruction setfocus, va directement au end de la procédure.
Ca confirme ce que vous m'avez écrit.

Maintenant si le setfocus est dans un try et qu'il existe un finally, les instructions dans le finally seront-elles effectuées ???

Bon, grand merci quand même,

Fred

[ShaiLeTroll]

Euh, SetFocus n'amène pas au "end", chez moi il execute les messages dans cet ordre

Code :

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

1
2
3
4
ShowMessage('Avant SetFocus');
ShowMessage('Button2Exit');
ShowMessage('Edit3Enter');
ShowMessage('Après SetFocus');

il n'est pas censé faire sortir de la fonction !
Pour le Try finally c'est bien son but ! Normalement tu ne devrais pas en avoir besoin !
ou Alors il y a une exception qui se produit dans un Event OnEnter\OnExit ...