uses
Windows, Graphics, Controls, Classes, SysUtils, StdCtrls, ExtCtrls;
type
TEdit = class(StdCtrls.TEdit)
private
Bgg: TGraphicControl;
FLeft, FTop, FWidth, FHeight: Integer;
protected
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
procedure TEdit.Resize;
begin
inherited Resize;
Bgg.SetBounds(FLeft-2, FTop-2, FWidth+4, FHeight+4);
Bgg.Canvas.Brush.Color := clRed;
Bgg.Canvas.Rectangle(0,0,FWidth,FHeight);
end;
constructor TEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Bgg := TGraphicControl.Create(Self);
Bgg.Parent := Self;
end;
destructor TEdit.Destroy;
begin
Bgg.Free;
inherited Destroy;
end;