Discussion :

[sky88]

bonjour tout le monde

comment on peut sauter la ligne dans un TEDIt lorsque l'utilisateur saisie un certain nombre de caracteres, et quand on mes un
Tedit.enabled:=false;
on aura "font" de tedit en gris est ce qu'on peut lui changer la couleur

merci à vous

[popo]

Sauter une ligne dans un TEdit ? Il vaudrait mieux utiliser un TMemo.
Pour changer la couleur

MonMemo.Font.Color := clRed; //pour du rouge

[Duan]

Si tu veux changer la font du TEdit lorsque enabled est à false, une petite astuce:

- Tu met un ton Edit dans un Panel avec bevelInner et bevelOuter @ bvNone
- Au lieu de mettre ton Edit enabled à false, tu met le panel enabled à false.

Tu peux alors mettre la couleur de font que tu désires dans ton Edit, celui-ci prenant aussi le false de son panel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
   begin
      Panel1.Enabled:=True;
      Edit2.Font.Color:=Clred;
   end;
procedure TForm1.Button2Click(Sender: TObject);
   begin
      Panel1.Enabled:=False;
      Edit2.Font.Color:=clGreen;
  end;

Salutation, Duan

[cincap]

Bonjour à toutes et à tous,

@ Duan, astucieux. il fallait y penser !

Il peut aussi grouper le tout :

Par défaut
Edit1.color := clblack
Edit1.font.color := claqua

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Panel1.Enabled:= not panel1.Enabled ;
 if panel1.Enabled = true then begin
 Edit1.Font.Color:=Clred ;
 button1.Caption := 'False' end
 else begin Edit1.Font.Color:= claqua ;
 button1.Caption := 'true' ;
end;
end;

Cordialement,

@+,

Cincap