Composant de la vcl [Résolu]

mamiF 5 Messages postés jeudi 28 janvier 2016Date d'inscription 23 octobre 2017 Dernière intervention - 19 oct. 2017 à 18:04 - Dernière réponse : Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention
- 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
Afficher la suite 

5 réponses

Répondre au sujet
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention - 20 oct. 2017 à 19:45
+1
Utile
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,
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Cirec
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention - 20 oct. 2017 à 15:03
0
Utile
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,
Commenter la réponse de Cirec
mamiF 5 Messages postés jeudi 28 janvier 2016Date d'inscription 23 octobre 2017 Dernière intervention - 20 oct. 2017 à 15:36
0
Utile
Merci cirec
Vraiment bien ta méthode est ce que je peut activer
l'ecriture dans edit
Commenter la réponse de mamiF
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 avril 2018 Dernière intervention - 20 oct. 2017 à 15:44
0
Utile
1
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 5 Messages postés jeudi 28 janvier 2016Date d'inscription 23 octobre 2017 Dernière intervention - 20 oct. 2017 à 18:37
ce code marche bien, mais edit.text devient desabled
Commenter la réponse de Cirec

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.