unit ButtonPlus;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

var shape:TShape   ;

type
  TButtonPlus = class(TButton)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure WMLBUTTONDOWN(var Msg: TWMLBUTTONDOWN); message WM_LBUTTONDOWN;
    procedure WMLBUTTONUP(var Msg: TWMLBUTTONUP); message WM_LBUTTONUP;
  public
    { Public declarations }
    //procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
  published
    { Published declarations }
    constructor Create(aowner:Tcomponent);override;    //!
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My components', [TButtonPlus]);
end;

constructor TButtonPlus.Create(aowner:Tcomponent);
begin
  inherited create(Aowner);
  //выбрать свойства по умолчанию
  //AutoSize:=false;
  Font.Style:=[fsBold];
  Font.Height:=16;
  Font.Size:=12;
  self.Width:=100;
  self.Height:=60;
  //нарисовать рамку вокруг
  shape:=TShape.Create(self);
  shape.Parent := self;
  shape.Enabled:=false;
  shape.Brush.Color:=clAqua;
  shape.Top := Top;
  shape.Left := Left;
  AdjustSize;
end;

//procedure TButtonPlus.SetBounds(aLeft, aTop, aWidth, aHeight: integer);
//begin
//  {Продолжаем, и позволяем SetBounds() сделать свое дело...}
//  inherited SetBounds(aLeft, aTop, aWidth, aHeight);
//
//  shape.Width:=Width;
//  shape.Height:=Height;
//end;

procedure TButtonPlus.WMLBUTTONDOWN(var Msg: TWMLBUTTONDOWN);
begin
  //изменить цвет рамки
  shape.Brush.Color:=clRed;
  inherited;
end;

procedure TButtonPlus.WMLBUTTONUP(var Msg: TWMLBUTTONUP);
begin
  //изменить цвет рамки
  shape.Brush.Color:=clAqua;

  inherited;
end;

end.

  shape.Width:=Width;
  shape.Height:=Height;