폼간에 데이터 교환방법중엔 이런것도 있습니다.

델파이가 Object pascal 기반이니깐, oop 적인 방법을 사용하는 거죠.

Form의 Subclass 를 하나 만들고 각 form에 그 class를 적용하는 겁니다.

이런걸 응용하면 좀 더 재미있고 흥미진진한 프로그래밍을 할 수 있을 겁니다.

도움이 되길



================================================================

첫번째 Unit

================================================================

unit SuperUnit;



interface



uses

Forms, classes, StdCtrls;



type

TMyForm = class(TForm)

public

procedure setEditValue(editName, editValue: string); virtual;

procedure returnEditValueToOwner(editName, editValue: string); virtual;

end;



implementation



procedure TMyform.setEditValue(editName, editValue: string);

var

i: integer;

begin

for i:=0 to ControlCount-1 do begin

if Controls[i] is TEdit then begin

if TEdit(Controls[i]).name = editName then

TEdit(Controls[i]).text := editValue;

end;

end;

end;



procedure TMyform.returnEditValueToOwner(editName, editValue: string);

begin

if owner is TMyForm then

TMyForm(owner).setEditValue(editName, editValue);

end;



end.



================================================================

두번째 Unit

================================================================

unit Unit1;



interface



uses

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

SuperUnit, StdCtrls;



type

TForm1 = class(TMyForm)

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

public

end;



var

Form1: TForm1;



implementation



uses unit3, Unit4;



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

if assigned(form3) then

try form3.Destroy; except end;

form3 := TForm3.create(self);

form3.setEditValue('Edit1', edit1.text);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

if assigned(form4) then

try form4.Destroy; except end;

form4 := TForm4.create(self);

form4.setEditValue('Edit1', edit2.text);

end;



end.





================================================================

세번째 Unit

================================================================

unit Unit3;



interface



uses

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

SuperUnit, StdCtrls;



type

TForm3 = class(TMyForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

public

end;



var

Form3: TForm3;



implementation



{$R *.DFM}



procedure TForm3.Button1Click(Sender: TObject);

begin

returnEditValueToOwner('Edit1', edit1.text);

close;

end;



end.





================================================================

네번째 Unit

================================================================

unit Unit4;



interface



uses

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

SuperUnit, StdCtrls;



type

TForm4 = class(TMyForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

public

end;



var

Form4: TForm4;



implementation



{$R *.DFM}



procedure TForm4.Button1Click(Sender: TObject);

begin

returnEditValueToOwner('Edit2', edit1.text);

close;

end;



end.

================================================================

끝.

================================================================

요즘 폼간의 데이터교환이 유행이군요. 아래만 보셔도 알 수 있을텐데....(쩝~);

어느 학교에서 내준 레포튼가요? 자수하세요..



form1의 buttonclickEvent에 아래와 같이 코딩하세요.



form2.caption := form1.caption;

form2.show;



이렇게 하면 폼1의 이름으로 폼2가 뜨겠죠? 한개더....

form1에 에디트 한개 놓고....



form2.label1.caption := edit1.text;

form2.show;



form1의 edit1에 입력한 값이 form2의 label에 뜰겁니다.



알려줬으니 자수하세요. 자수해서 광명찾자!!!!



hee wrote:

> form1, form2가 있습니다.

> form1에서 버튼을 클릭하면 form2가 생성되면서 form1의 값을 form2의 컨트롤 값으로 보낼수 있는지요. 어떤 방법으로 하면 될지 궁금합니다.

다음과 같이 넣고싶은 값을 항상하던대로 넣어주시면 됩니다.

단지 앞에다 새로 생성된 폼에다 넣으라는것을 알려주시면 됩니다.

예) NewForm2.Edit1.Text := Edit1.Text;



procedure Form1.Button1Click(Sender: TObject);

var

NewForm: TForm2;

begin

NewForm := TForm2.Create(Self);

NewForm.Edit1.Text := Edit1.Text; // 이런식으로 새로 생성된폼에다

.... // 정보들을 넣어주세요...

....

NewForm.ShowModal; // 혹은 NewForm.Show;

NewForm.Free;

end;

hee wrote:

> form1, form2가 있습니다.

> form1에서 버튼을 클릭하면 form2가 생성되면서 form1의 값을 form2의 컨트롤 값으로 보낼수 있는지요. 어떤 방법으로 하면 될지 궁금합니다.