unit Form1  <- 메인 폼입니다.

interface

uses
....

type
  TMyButton = TButton; <- 요기를 주목 해 주세요.

  TForm = Class(TForm)
....




그리고 서브 폼에서

unit Form2

interface

uses
...

type
...

implementation

uses Form1; <- 메인폼을 여기에 올리고...

{$R *.DFM}

var
  Test1: TMyButton; <- 요기도 주목

procedure TForm2.Create(Sender: TObject);
begin
  Test1 := TMyButton.Create(Self);
end;



뭐 이런 식으로 선언해서 사용하면요...


  Test1 := TMyButton.Create(Self);

이렇게 선언한고 하고

  Test1 := TButton.Create(Self);

이렇게 선언한게 같은 결과를 가져오는 건가요?

제가 알고싶은건

TMyButton = class(TButton);

뭐 이런식으로 해서 class 상속을 받는데...

위에건 어떤 의미가 있는지, 위와같이 했을경우 어떤 결과가 나오는지 궁금해서 입니다.

초보는 힘들어... ^^;;