Soyez le premier à donner votre avis sur cette source.
Vue 5 785 fois - Téléchargée 524 fois
(* Declarations *) function ValidEdit(Frm: TForm): Boolean; (* Verifie si les champs des TEdit sont remplis !*) function ValidEdit(Frm: TForm): Boolean; var i: Shortint; begin for i:=0 to Frm.ComponentCount-1 do begin if Frm.components[i] is TEdit then begin if Tedit(Frm.components[i]).Text = '' then begin result := false; exit; end; end; end; Result:=True; end; (* Utilisation *) procedure TForm1.EditChange(Sender: TObject); begin (* Button1 valide si ValideEdit renvoi TRUE*) Button1.Enabled:=ValidEdit(FrmClient); end;
4 août 2004 à 23:04
autant pour moi
4 août 2004 à 22:06
Mais peut-être est-ce volontaire ?
JulioDelphi : pourquoi vérifier la longueur du texte saisi ?
Button1.Enabled := TEdit(Sender).Text <> '';
C'est plus court et le résultat est le même, non ?
1 août 2004 à 16:32
sympa la routine !
voici ma méthode qui fonctionne pour 'un edit pour un bouton' : (à creer une fois puis à placer dans chak evènement OnKeyPress des TEdit)
procedure TForm1.Verif(Sender: TObject);
begin
Button1.Enabled := Length(TEdit(Sender).Text)>0;
end;
a la difference de la tienne, je ne gere ke un edit pour enabled ou non un bouton.
bye
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.