Composant de la vcl [Résolu]

Signaler
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017
-
Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
-
Bonsoir,
est ce qu' il y a un composant edit avec un changement de couleur de contour ou une méthode de réaliser

4 réponses

Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
var
  aRect: TRect;
begin
  with TBrushRecall.Create(Canvas.Brush) do
  try
    Canvas.Brush.Color := clRed;
    Canvas.Brush.Style := bsSolid;
    aRect := Edit1.BoundsRect;
    InflateRect(aRect, 1, 1);
    FrameRect(Canvas.Handle, aRect, Canvas.Brush.Handle);
    Edit1.SetFocus; // **** peut être comme ça
  finally
    Free;
  end;
end;

Cordialement,
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
comme ça:
procedure TForm1.Edit1Enter(Sender: TObject);
var
  aRect: TRect;
begin
  with TBrushRecall.Create(Canvas.Brush) do
  try
    Canvas.Brush.Color := clRed;
    Canvas.Brush.Style := bsSolid;
    aRect := Edit1.BoundsRect;
    InflateRect(aRect, 1, 1);
    FrameRect(Canvas.Handle, aRect, Canvas.Brush.Handle)
  finally
    Free;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  aRect: TRect;
begin
  aRect := Edit1.BoundsRect;
  InflateRect(aRect, 1, 1);
  FrameRect(Canvas.Handle, aRect, Canvas.Brush.Handle)
end;

Cordialement,
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017

Merci cirec
Vraiment bien ta méthode est ce que je peut activer
l'ecriture dans edit
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
je ne comprend pas bien ce que tu veux dire par
"est ce que je peut activer l'ecriture dans edit"
l'écriture est active d'office sauf si tu fais
Edit1.ReadOnly := True;
.
peux tu m'en dire plus S.T.P.

Cordialement,
mamiF
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017

ce code marche bien, mais edit.text devient desabled