Composant de la vclRésolu

Question

Bonsoir,
est ce qu' il y a un composant edit avec un changement de couleur de contour ou une méthode de réaliser

Cirec · Answer

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,

mamiF · Answer

Merci cirec
Vraiment bien ta méthode est ce que je peut  activer
l'ecriture dans edit

Cirec · Answer

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,

Cirec · Answer

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,

Composant de la vcl

4 réponses

Votre réponse

Discussions similaires