안녕하세요? 초보라 답변이 될지 모르겠네요.



<< 절때 왕 초보가 아니면 읽지마십시오 >>



주폼과 별폼의 연결이라...



1. 간단하게 주폼에서 버튼을 하나만들어서 그 버튼을 누르면

서브폼이 나오게 하는 방법은



< 주폼Unit이름 = Main, 서브폼Unit이름 = Sub >

< 주폼이름 = Form1 서브폼이름 = Form2 >



첫째 : 주폼의 Uses부분에 서브폼의 Unit의 이름을 넣어준다.

( uses

Windows, Messages, Sub; 이렇게요 )



둘째 : 주폼에 있는 버튼의 Click 루틴에 'Form2.Show' 을 삽입해 준다.

( procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Show

end; 이렇게요 )

실행하고 버튼을 누른다.



2. 변수의 공동 사용 (주폼의 변수를 서브폼에서 사용하기)



우선 위의 1번과 같이 코드를 작성한다



첫째 : 주폼의 public 부분에 변수와 형식을 선언하여 준다

(예: Babo : integer)



둘째 : 서브폼의 implementation 밑부분에 새로운 Uses를 만들고 주폼의

Unit 이름을 넣어준다.

( implementation

Uses

Main; 이렇게요)

< 주폼에서도 새로운 Uses을 만들어서 사용해도 상관 없어요 >



셋째 : 주폼의 Create부분에 Babo의 값을 입력한다

( procedure TForm1.FormCreate(Sender: TObject);

begin

babo := 100;

end; 이렇게요 )

서브폼에 Label과 Button을 하나씩 만들어서 주폼의 변수를 사용한다

( procedure TForm2.Button1Click(Sender: TObject);

begin

label1.Caption := inttostr(Form1.babo);

end; 이렇게요 )



도움이 않 되셨죠? 거봐요 왕 초보아니면 읽지 마라고 했잖아요

히히히!!!!!!



만약! 도움이 조금이라도 되셨다면

서점에서 책 한권 장만하세요.



그럼.. 하 시 는 일 마 다 행 운 이 따 르 시 길 -초보가-



손지연 wrote:

> 주폼과 별폼을 연결하려고 하는데 어떻게 해야 하나요?

> 자세히 설명을 해 주시면 고맙겠습니다.

> 소스도 같이요....

손지연 wrote:

> 주폼과 별폼을 연결하려고 하는데 어떻게 해야 하나요?

> 자세히 설명을 해 주시면 고맙겠습니다.

> 소스도 같이요....

음냐...어떻게 폼을 연결한다는 것인지요...

자세하게 적어 주세요....

음...폼간의 변수를 참조 하는 건가~~?

좌우지간 질문의 요지를 잘 모르겠군요........