Cette Fonction permet de mettre la propriété d?un autre contrôle
à TRUE ou FALSE. (Utile pour les boutons dans un Formulaire)
Source / Exemple :
(* 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;
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.