Cancel on EXIT..

Version imprimable

30/11/2006, 09h52
laadhar

Cancel on EXIT..

j'ai une form FORM1, contenant un editbox EDIT1, plusieurs panels et 2 boutons ANNULER et VALIDER.

je suis sur mon Editbox Edit1
je dois vérifier (sur le OnExit) si le texte de Edit1 n'est pas vide pour passer aux autres traitements..(message d'erreur qui apparait)

sauf que je veux qu'en appuyant sur le bouton ANNULER, rien ne se passe..

je sais intercepter une touche du clavier par le biais de (if key<> #13) par ex, mais comment intercepter un click??

j'espère que c'est clair!

Merci

Magdani

C'est ça ?

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.AnnulerClick(Sender: TObject);
begin
  if Edit1.Text<>'' then ShowMessage('Pas vide ...');
end;
 
procedure TForm1.AnnulerKeyPress(Sender: TObject; var Key: Char);
begin
  if Edit1.Text<>'' then ShowMessage('Pas vide ...');
end;

30/11/2006, 10h25
e-ric

Salut

L'événément OnExit ne sera déclenché que si le composant sur lequel tu clique est réceptif à la focalisation et qu'il figure dans la liste des composants à arrêt de tabulation.

Il faut donc d'abord que ce composant soit un descendant de TWincontrol (TButton, TBitButton..., ce qui exclut les TSpeedButton) ensuite il faut que la propriété TabStop de ce bouton vaille True.

cdlt

e-ric
30/11/2006, 10h45
Louis Griffont

Dans ton bouton "Annuler", définit la propriété "Cancel" à True !
01/12/2006, 16h17
edam

Citation:

Envoyé par kwasin

Dans ton bouton "Annuler", définit la propriété "Cancel" à True !

+ si ta form est modal met la prpriéte

Code:

modalresult=mrCancel
01/12/2006, 16h24
Louis Griffont

Citation:

Envoyé par edam

+ si ta form est modal met la prpriéte

Code:

modalresult=mrCancel

Farpaitement ;)
04/12/2006, 10h57
laadhar

non non.. c'est pas du tout ça..

en fait, si mon editbox est vide, lorsque j'en sors, je dois avoir un message d'erreur.
jusque là, tout se passe très bien..

il me reste un seul cas à gérer..
quand j'appuie sur annuler(editbox est toujours vide), j'ai encore le emssage d'erreur! (car pour appuyer sur le bouton, il faut sortir de l'editbox la première fois.. d'où le message d'erreur)

j'espère que c'est clair..
Merci
04/12/2006, 11h22
Louis Griffont

Heu, question simple

Quand on clique sur annuler, tu veux le message d'erreur ou pas ?
04/12/2006, 11h24
freestyler

justement...

ce n'est qu'en appuyant sur le bouton annuler que je ne veux pas de message d'erreur.

pour le moment, le fait de me mettre sur le bouton Annuler me sort le message d'erreur(à cause du onexit de mon editbox)
04/12/2006, 11h26
e-ric

Salut

A mon avis, ton premier message n'a pas le même sens que ton dernier. Selon celui-ci, tui semble vouloir que le contrôle d'erreur ne soit pas réalisé si l'utilisateur clique sur le bouton Annuler.

Tu as codé le traitement de l'erreur de saisie dans le OnExit du composant et tu te retrouve coincé lorsque tu cliques sur le bouton Annuler car le focus passe alors sur ce bouton et déclenche le OnExit du TEdit. c'est bien cela ?

Dans ce cas, deux solutions :

1 - Déplace le code du gestionnaire OnExit du composant TEdit et place-le dans le gestionnaire OnClick du bouton Valider.

2 - affecte False à la propriété TabStop du bouton Annuler.

cdlt

e-ric
04/12/2006, 11h28
e-ric

Question : freestyler = laadhar ?

On joue à cache-cache ?

e-ric
04/12/2006, 11h32
freestyler

:-)
oh c'est un vieux login..
apparament, de cette machine j'ai des cookies qui me renvoient sur ce login..

désolé pour la confusion..
04/12/2006, 11h35
laadhar

bon je reviens..

L'avantage, c'est que mon problème est bien compris maintenant!

par contre :

Solution 1 - je ne peux pas.. il faut que je passe par ce mécanisme on exit!

Solution 2 - à quoi cela va m'avancer d'affecter TabStop d'Annuler à false???
04/12/2006, 11h37
laadhar

En gros,
comment traduire (si j'appuie sur le bouton 'machin', je fais ceci) en delphi..?

bon j'ai trouvé..

il suffisait de faire :
Code:

1 2 3 4 5 6 7 if Edit1.Text = '' then begin if ButtonAnnuler.Focused then exit; ShowMessage('Veuillez entrez un nouveau code..'); exit; end;
Merci de votre réactivité :lol:

04/12/2006, 11h52
PadawanDuDelphi

Salut,

Ne peux-tu pas simplement mettre ton message d'erreur sur le OnEnter de tes autres composants que ton bouton "annuler"? En assignant ta procédure à tes composants ça devrait pas être trop compliqué.

@+.
04/12/2006, 11h59
e-ric

Dans ce cas, pas de TabStop = False sur le bouton Annuler.

e-ric