쫑현이 wrote:

> 델파이로 프로그램 짜다가..

> 의문이 생겨서 그러는데...... 부탁드립니다...

> 뭐냐하면.. 폼에.. 버튼을 두고선.. 실행시켜.. 이 버튼을 계속 누르면..

> 버튼이 박혀 있는 그니깐(똑같은 폼을)계속해서 .. 띄울려고.. 하거든여...

> 비베에선.... 폼 객체 변수를... Set해서.. 할 수 있는데...

> 델파이에서도.. 가능할거라 생각하는데.. 혹시.. 어떻게 하는지.....

> 부탁드립니다....

> 그럼...... 잠오지 않는 밤을... 멋지게.. 보내시길...

>



저는 영원한 초보입니다.

그래서 공부하는 의미에서 최용일님꺼를 해보왔더니 안되더군요!

제가 방법을 몰라서 그런지 몰라도.. 용일님 죄송!

하여간에 그래서 저 나름대로의 방법

(단, 버튼의 위치는 아니 바꿔노왔습니다.)

unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

i : integer;

implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

newForm: TForm;

begin

newForm := TForm.Create(Self);

with Tbutton.Create(newForm) do

try

Parent := newForm;

newform.Left := i;

newform.top := i;

newForm.Show;

finally

end;

inc(i);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

i:= 0;

end;



end.

안녕하세요 하얀까마귀 입니다..



조규춘님께 조금 죄송하지만.. 이상해서 해보니까 잘 안되네요...



... 쩝......



create문으로 만들면 그냥 폼만 만들어지죠.... 그러니 그 안의 각종 콤포넌트



들은 다 어떻게 할려면 무척 힘들겠죠????



이렇게 한번 해보세요...



procedure TForm1.Button1Click(Sender: TObject);

var

newForm : TForm;

begin

// 요놈은 자주 보셧죠?? procect 에 보시면 자주 보는 거잖아요....

// 그래서 이놈으로 만들면 됩니다.

Application.CreateForm(TFormClass(self.ClassType), newForm);



newForm.Left := self.Left + 100;

newForm.Top := self.Top + 100;

newForm.Show;

end;





조규춘 wrote:

> 쫑현이 wrote:

> > 델파이로 프로그램 짜다가..

> > 의문이 생겨서 그러는데...... 부탁드립니다...

> > 뭐냐하면.. 폼에.. 버튼을 두고선.. 실행시켜.. 이 버튼을 계속 누르면..

> > 버튼이 박혀 있는 그니깐(똑같은 폼을)계속해서 .. 띄울려고.. 하거든여...

> > 비베에선.... 폼 객체 변수를... Set해서.. 할 수 있는데...

> > 델파이에서도.. 가능할거라 생각하는데.. 혹시.. 어떻게 하는지.....

> > 부탁드립니다....

> > 그럼...... 잠오지 않는 밤을... 멋지게.. 보내시길...

> >

>

> 저는 영원한 초보입니다.

> 그래서 공부하는 의미에서 최용일님꺼를 해보왔더니 안되더군요!

> 제가 방법을 몰라서 그런지 몰라도.. 용일님 죄송!

> 하여간에 그래서 저 나름대로의 방법

> (단, 버튼의 위치는 아니 바꿔노왔습니다.)

> unit Unit1;

>

> interface

>

> uses

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

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> Button1: TButton;

> procedure Button1Click(Sender: TObject);

> procedure FormCreate(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

> i : integer;

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> newForm: TForm;

> begin

> newForm := TForm.Create(Self);

> with Tbutton.Create(newForm) do

> try

> Parent := newForm;

> newform.Left := i;

> newform.top := i;

> newForm.Show;

> finally

> end;

> inc(i);

> end;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> i:= 0;

> end;

>

> end.

>

>

진짜 초보님이 맞으시는군요. 저는 그러한 방법으로 생성한다는 것만



말씀드렸습니다. 그걸 어떻게 사용하는가는 전적으로 사용자님에게



달려 있는거죠. 그래서 생성과 소멸의 중간에 "..."생략부호를 넣어놓았었는데...



그럼 조규춘님의 예제대로 버튼을 클릭하면 똑같은 폼을 보여주는 예제를



만들겠습니다. 너무 쉬운 예제라 설명은 안해도 이해하시리라 믿습니다.



그리고 조규춘님의 코드에는 동적으로 생성한 폼을 삭제하는 코드가 없더군요.



그렇게 되면 프로그램을 실행할때마다 조금씩 리소스를 잃어버릴수 있습니다. 그렇게



해서 리소스가 완전히 고갈되면 시스템이 다운됩니다. 그러므로 반드시 프리를



해주세요.



unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

i : integer;

implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

NewForm: TForm1;

begin

newForm := TForm1.Create(Self);

NewForm.Show;

// InsertControl을 사용할경우 폼이 종료되면 자동으로 NewForm이 프리됩니다.

InsertControl(NewForm);

// 모들폼(다이얼로그와 같은)으로 띄울땐 다음과 같이 하시면 됩니다.

// newForm := TForm.Create(Self);

// NewForm.ShowModal;

// 이경우는 직접 프리해주어야 합니다.

// NewForm.Free;

end;



end.

그러니까 현재의 폼이 TForm1형이라면...



var

NewForm: TForm1;

begin

...

NewForm := TForm1.Create(Self);

...

NewForm.Free;

...

end;





쫑현이 wrote:

> 델파이로 프로그램 짜다가..

> 의문이 생겨서 그러는데...... 부탁드립니다...

> 뭐냐하면.. 폼에.. 버튼을 두고선.. 실행시켜.. 이 버튼을 계속 누르면..

> 버튼이 박혀 있는 그니깐(똑같은 폼을)계속해서 .. 띄울려고.. 하거든여...

> 비베에선.... 폼 객체 변수를... Set해서.. 할 수 있는데...

> 델파이에서도.. 가능할거라 생각하는데.. 혹시.. 어떻게 하는지.....

> 부탁드립니다....

> 그럼...... 잠오지 않는 밤을... 멋지게.. 보내시길...

>

안녕하세요 하얀까마귀 입니다..



음.. 제가 잘 못 보았군요....



조규춘님께서



newForm := TForm.Create(Self);



이렇게 해서.. 전 왜??? 폼객체를 생성해서 그걸 일일이 안의 콤포넌트를 만들까??



라고 생각을 했죠.. 그런데... 최용일님의 소스는 맞게 되어 있네요....



그냥 잘못한 것도 있고 해서...잠시 테스트 한걸 올립니다. 참고 하세요..



//////////////--------------------

폼을 생성하고 싶을때..

var

newForm : TForm;

begin

Application.CreateForm(TFormClass(self.ClassType), newForm);

// 요놈은 그냥 newForm := TForm1.Create해도 되요....



newForm.Left := self.Left + 100;

newForm.Top := self.Top + 100;

newForm.Show;

end





// 요건 객체 증식하기...

// 요건 전에 책보고 공부하면서 만든겁니다... 어떤 책이었는지는 까먹었어요....

// 좀 오래전에 본 책이라서.....

procedure ......(Sender : TObject);

var

CtrlText : String;

begin



// 현재 오브젝트로 같은 객체를 하나 만들어요...

with TcontrolClass(Sender.ClassType).Create(self) do

begin

// 보모는 똑깥이 하고..

parent := (Sender as Tcontrol).Parent;

// 위치는 조금 다르게..

Left := (Sender as Tcontrol).Left + 10;

Top := (Sender as Tcontrol).Top + 10;



// 요부분이 쬐끔 이상하게 보일려나???/

// 뭐 별건 아니구요... TControl의 짜식들은 그냥 코드 수정없이

// 몽땅 복제할려구 이렇게 되어 있는겁니다.. 그러니까 caption이나 text의

// 내용을 가져와야 하니까....

// 그냥 복사해서 넣어줘 버려요..

SetLength(ctrlText,50);

(Sender as TControl).GetTextBuf(PChar(CtrlText), 50);

CtrlText := PChar(CtrlText) + '+';

SetTextBuf(Pchar(CtrlText));

end;