Composant de la vcl

Résolu
mamiF
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017
- 19 oct. 2017 à 18:04
Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
- 20 oct. 2017 à 19:45
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

Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
48
20 oct. 2017 à 19:45
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,
1
Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
48
20 oct. 2017 à 15:03
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,
0
mamiF
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017

20 oct. 2017 à 15:36
Merci cirec
Vraiment bien ta méthode est ce que je peut activer
l'ecriture dans edit
0
Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
48
20 oct. 2017 à 15:44
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,
0
mamiF
Messages postés
5
Date d'inscription
jeudi 28 janvier 2016
Statut
Membre
Dernière intervention
23 octobre 2017

20 oct. 2017 à 18:37
ce code marche bien, mais edit.text devient desabled
0