Evénement ButtonClick avant exit d'un TEdit

**leaannanreugel** · 24/01/2015, 08h49

Bonjour,

Dans une form, j'ai un composant tedit ou j'ai un événement onexit avec un traitement dessus.
sur cette form j'ai tbitbtn avec un événement click(Close) qui ferme la form.
seulement quand je suis sur le tedit et que je veux cliquer sur le tbitbtn, le on exit se déclenche a chaque fois.

comment intercepter le onclick du tbitbtn avant le onexit du tedit pour fermer directement la form sans faire le traitement du onexit ?

Merci pour vos réponses.

PS: Je suis en DELPHI 6

Invité · 25/01/2015, 15h59

Bonjour,

Si j'ai bien compris le problème, pour rester simple (mais pas à 100% opérationnel), en supposant qu'il y ait plusieurs TEdits, TMemos..., j'écrirais

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
25
26
27
28
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.TabOrder   := 0;
  Edit2.TabOrder   := 1;
  BitBtn1.TabOrder := 2;
end;
 
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if BitBtn1.Focused then
     Showmessage('Pas d''exécution du traitement de sortie de TEdit1')
  else
     Showmessage('Exécution du traitement de sortie de TEdit1')
end;
 
procedure TForm1.Edit2Exit(Sender: TObject);
begin
   if BitBtn1.Focused then
     Showmessage('Pas d''exécution du traitement de sortie de TEdit2')
  else
     Showmessage('Exécution du traitement de sortie de TEdit2')
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

De toute façon, en Lazarus/Delphi le Edit1Exit s'exécutera avant BitBtn1Click. Mais, l'action qui déclenchera le Edit1Exit est le OnClick ou le OnKeyxxx duTBitBtn... et dans tous les cas, ce dernier aura le focus avant d'engager le Edit1Exit. Il suffit de le détecter. C'est simple et remplit la plupart des contraintes... sauf si le BitBtn est sélectionné au clavier par Tab par exemple et que vous n'engagez pas le OnKey de celui-ci et continuez sur un hypothétique Edit3 (d'où l'ordre des TabOrder dans le OnCreate de la Form

)

Sinon on déclenche une méthode de contrôle des TEdits à partir de l'entrée dans les autres composants sauf le BitBtn... Mais ce sera plus lourd en écriture.

Encore plus lourd, gérer les événements à partir de la Form directement et en overridant certaines méthodes (mais cela nécessitera son KeyPreview à True).

**SergioMaster** · 26/01/2015, 08h20

Bonjour,

Le problème est que le onExit se fait dès que le TEdit perd le focus (la souris sort de la zone).

Ceci étant , comment sort-on du Tedit ?
- Soit par la souris
- Soit parce que la zone est pleine
- Soit par Tabulation
- Soit encore par la touche Enter (uniquement si l'évènement OnKeyPress est programmé)

Donc si, on utilise l'évènement onKeyPress au lieu du OnExit les deux derniers (voire les trois) cas sont gérables.

j'opérerai de la manière suivante :
1-Gestion de l'event on key press
si #9 ou #13 (tab ou Enter) alors Char=#0 et appel d'une procédure qui fait le traitement prévu au départ dans le onExit
2-Pour l'event on Exit
si longueur atteinte appel du traitement prévu (même procédure que dans 1)
sinon simulation clic bouton ?