Discussion :

[laadhar]

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]

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]

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]

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

[edam]

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]

+ si ta form est modal met la prpriéte

Code :

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

modalresult=mrCancel

Farpaitement

[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