고한석 wrote:

> 델파이로 델파이같은 프로그램을 만들려고 합니다.

> 응용 program실행 중에 콤퍼넌트바를 생성시켜 폼위에 올려 놓으면

> 델파이로 프로그램을 짜는 것처럼 그 프로그램을 수행시키려고 합니다.

> 만약 program실행중에 edit같은(예를 들어)콤퍼넌트를 만들려면

> 어떻게 해야하는지..

> 그리고 만들어진 컴포넌트의 속성은 어떻게 줄수 있는 지가 궁금합니다.



다음과 같은 방법도 있습니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

// RegisterClasses()를 사용하여 class들을 등록한다

// 이 동작을 해야 FindClass() 나 GetClass() 함수에서 사용할 수 있다

RegisterClasses([TButton, TForm]);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

CRef: TPersistentClass;

AControl: TControl;

begin

// 문자열로 지정한 class의 instance를 만든다

CRef := GetClass('TButton');

if CRef <> nil then

begin

AControl := TControl(TControlClass(CRef).Create(Self));

with AControl do

begin

// 성성된 TButton의 프로퍼티를 지정한다

Parent := Self;

Width := 50;

Height := 30;

end;

end

else

MessageDlg('등록된 class가 아닙니다. RegisterClasses()로 등록해야 합니다', mtWarning, [mbOk], 0);

end;



end.