안녕하십니까? 오늘은 조금 길게 하것습니다.

길다고 원망하거나 노여워하지 마십시요!



원래의 폼 : form1

불르는 폼 : form2



form1에서 form2를 호출하는 부분은 다음과 같습니다..



procedure TForm1.Button1Click(Sender: TObject);

begin

With TForm2.Create(Application) do

begin

ShowModal;

Edit1.Text := Return_value; // 이것에 주목하세요...

Free;

end;

end;



여기에서 Return_value 는 form2에서 선언된 프로퍼티이구여..

Edit1은 from1에 위치한 에디트박스이죠...





이것으로 호출하는 폼에서의 코딩은 끝난거구여..

이제 호출받는쪽의 소스를 살펴볼까요..





unit Unit2;



interface



uses

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

ComObj, Grids, StdCtrls, AxCtrls, OleCtrls, vcf1;



type

TForm2 = class(TForm)

Button4: TButton;

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Return_value : String; // 이곳에 원하는 타입으로 프로퍼티를 선언합니다...

end;

.

.

.

.

.

폼의 정의부분에 원하는 타입으로 변수(프로퍼티)를 정의한다음..

해당폼의 Close Event에서 다음과 같이 코딩하시면 됩니다...



procedure TForm2.Button2Click(Sender: TObject);

begin

Return_value := Edit2.Text; // 여기에서 Edit2는 Form2에서 입력한 값이 되겠죠..

Close;

end;



아님 초보도 이해 될수 있는 가장 쉬운 방법(조금은 단순무식하지만)

폼2의 버튼을 클릭할때 edit1의 내용을 form1.edit1에 넣는거는

form1.edit1.text := edit1.text;



자 여기 까정 입니다. 수고하십시요!



조은 하루 되시구요!



김근만 wrote:

> 안녕하세요 초보 델파이 사용자입니다.

> 메인폼에서 서브폼에 입력된 숫자나 여러 데이타를 어떻게 공유해서 쓸 수 있습니까?

> 예를 들어 서브폼에 숫자를 입력하고 나서 메인폼에서 버튼을 누르면 결과가 나올려면

> 말입니다.(저 정말 초보죠?)

> 죄송하지만 한가지더

> 메인폼아래에 여러 서브폼이 있다면 각각의 서브폼에 입력된 많은 숫자나 문자를 어떤식으로 메인폼에서 공유할 수 있는지(질문이 너무 막연하죠)

> 진짜 죄송하지만 한가지 더

> 위에서 입력된 숫자나 문자를 저장할때 이진수(? 남들이 봤을때 깨져보이게)로 할려면

> 어떻게 하나요?

> 정말 답해주시면 감사하겠습니다.

> 그럼 홈페이지의 무궁한 발전을 빌며...