Cancel on EXIT..

**laadhar** · 30/11/2006, 10h52

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

**Daniel Magron** · 30/11/2006, 11h21

C'est ça ?

Code :

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

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;

**e-ric** · 30/11/2006, 11h25

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

**Louis Griffont** · 30/11/2006, 11h45

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

**edam** · 01/12/2006, 17h17

Envoyé par kwasin

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

+ si ta form est modal met la prpriéte

Code :

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

modalresult=mrCancel

**Louis Griffont** · 01/12/2006, 17h24

Envoyé par edam

+ si ta form est modal met la prpriéte

Code :

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

modalresult=mrCancel

Farpaitement

**laadhar** · 04/12/2006, 11h57

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

**Louis Griffont** · 04/12/2006, 12h22

Heu, question simple

Quand on clique sur annuler, tu veux le message d'erreur ou pas ?

**freestyler** · 04/12/2006, 12h24

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)

**e-ric** · 04/12/2006, 12h26

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

**e-ric** · 04/12/2006, 12h28

Question : freestyler = laadhar ?

On joue à cache-cache ?

e-ric

**freestyler** · 04/12/2006, 12h32

:-)
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..

**laadhar** · 04/12/2006, 12h35

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???

**laadhar** · 04/12/2006, 12h37

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

**laadhar** · 04/12/2006, 12h50

bon j'ai trouvé..

il suffisait de faire :

Code :

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

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é

**PadawanDuDelphi** · 04/12/2006, 12h52

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é.

@+.

**e-ric** · 04/12/2006, 12h59

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

e-ric

Cancel on EXIT..

Delphi

Discussions similaires

Partager

Partager