안녕하세요.

제목 그대로 pageControl을 상속받아서 바탕색만 다른 컴포넌트를 만들려고 하는데요..

제가 잘못해서 그런지 잘 안되네요..


<!--CodeS-->

Procedure TForm.FormCreate(Sender:Tobject);
begin

  PageControl.Brush.Color := $00E3DFE0;

end;

<!--CodeE-->

이렇게는 했을때 바탕색이 변하는거 확인했는데요..

재사용이 높은 컴포넌트라서 상속받아서 새로 만들려구요.

고수님들 좀 부탁드려요..





<!--CodeS-->

unit NewPageControl;

interface

uses
  SysUtils, Classes, Controls, ComCtrls;

type
  TNewPageControl = class(TPageControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
     Constructor Create(AOWner : Tcomponent); Override;
     destructor destroy; override;
  published
    { Published declarations }

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Misty', [TNewPageControl]);
end;

Constructor TNewPageControl.Create(AOWner : Tcomponent);
begin
  Inherited Create(AOwner);
    Brush.Color :=  $00C07846;    // 생성한후 색상 바꾸는 부분
end;

destructor TNewPageControl.destroy;
begin

  inherited Destroy;
  

end;

end.
<!--CodeE-->