J'ai une fiche avec plusieurs TEdit et autres composants. Le premier TEdit à remplir est EditNom, qui est un champ obligatoire. J'ai ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.EditNomExit(Sender: TObject);
  var
    Edit:TEdit;
  begin
    If EditNom.Text=''then
    begin
      Edit:=Sender as TEdit;
      edit.SetFocus;
    end
    else
    begin
    // Commandes
    end;
end;
J'ai un TButton Sortir mais je ne peux l'employer tant que je n'ai pas saisi de texte dans mon TEdit. C'est le seul TButton Enabled lorsqu'il n'y a pas de texte dans le TEdit, les autres le deviennent lorsque le champ est remplis. Je peux quitter la Fiche par le X de la fiche mais j'aimerais mieux pouvoir me servir de mon bouton Sortir.

Merci

Duan