Discussion :

[katassili]

Code :

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

1
2
if (edit1.text='') or (edit2.Text='') then bitbtn2.enabled:=false ;
if (edit1.text='*') and (edit2.Text='*') then bitbtn2.enabled:=true;

bitbtn2 je l'est désactiver
je desire svp comme vous avez surement compris que s'il ya rien écrit sur edit1 et edit2
le bouton bitbtn2 se desactive et si je met n'importe quoi il s'active auto
mais sa ne fonctionne pas il ne s'active plus

[tourlourou]

Bonjour,
Le contraire de la condition if S = '' est if not (S = '') ou if S <> ''.
S = '*' ne sera vrai que si S contient la seule astérisque et non s'il contient n'importe quoi.

[acaumes]

Bonjour,

Personnellement j'aurais écrit:

Code :

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

1
2
3
4
 
if (edit1.text='') or (edit2.Text='') 
  then bitbtn2.enabled:=false 
  else  bitbtn2.enabled:=true;

ou même

Code :

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

1
2
 
bitbtn2.enabled:= not ((edit1.text='') or (edit2.Text=''))

Car de toutes façons, il n'y a que deux possibilités pour le bouton

Cordialement

[ALWEBER]

if (edit1.text='') or (edit2.Text='') then bitbtn2.enabled:=false ;
if (edit1.text='*') and (edit2.Text='*') then bitbtn2.enabled:=true;

bitbtn2 je l'est désactiver
je desire svp comme vous avez surement compris que s'il ya rien écrit sur edit1 et edit2
le bouton bitbtn2 se desactive et si je met n'importe quoi il s'active auto
mais sa ne fonctionne pas il ne s'active plus

Le code doit être mis sur le onchange de chaque TEdit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1.Enabled :=  (edit1.text<>'') and (edit2.Text<>'') ;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.OnChange := Edit1Change ;
Edit2.OnChange := Edit1Change ;
end;

[katassili]

Le code doit être mis sur le onchange de chaque TEdit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1.Enabled :=  (edit1.text<>'') and (edit2.Text<>'') ;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.OnChange := Edit1Change ;
Edit2.OnChange := Edit1Change ;
end;

pouvez vous svp m'expliquer plus ou mettre ce code si et merci

[ALWEBER]

pouvez vous svp m'expliquer plus ou mettre ce code si et merci

Envoies moi ton exemple. Je mettrai le code dessus. Bonne journée

[katassili]

Envoies moi ton exemple. Je mettrai le code dessus. Bonne journée

un grand merci pour votre précieuse aide
j'ai bien réviser votre réponse et avec qlqs recherches j'ai su ou les mètres
comme les chinois disent ne me donne pas le poisson apprend-moi a pécher


et j'ai plein d'autres questions a poser

[der§en]

Pour ce genre de problématique, tu peux aussi utiliser les TAction !

[ALWEBER]

un grand merci pour votre précieuse aide
j'ai bien réviser votre réponse et avec qlqs recherches j'ai su ou les mètres
comme les chinois disent ne me donne pas le poisson apprend-moi a pécher
et j'ai plein d'autres questions a poser

A disposition en fonction de mes disponibilités