castle road wrote:

> procedure Tform1.formclose(sender : tobject ; action : TcloseAction)

> begin

> action := cafree;

> end;

>

> procedure Tform1.btnclick(sender: Tobject);

> begin

> if sender = button1 then

> form1.formclose(...); <=== 요기

> end;

>

> 요런건데요. formclose안에 오떤것을 넣어주어야 합니다.

> 요거 때문에 에러가 나서 컴파일이 안되네요.

> 참고로 이 폼은, fsmdichild입니다.

> form1.free 했더니 에러 나더라구요. 왜 에러죠?

>

코딩을 보니깐 button1이 눌려졌을때 종료를 하실려나 보군요.

그냥 Close 하시지 안구.

form1.formclose(...); <=== 요기

=> form1.formClose(nil, caFree);

formclose(sender : tobject ; action : TcloseAction)

인자가 Sender: TObject하고 Action: TCloseAction이지요.

Sender는 formclose를 호출한 Object가 넘어가는데 사용안하시면 nil을

Action은 Form이 Close될때의 액션인데 자세한건 도움말을 참고 하시구요,

코딩을 보니깐 caFree넣어주면 될듯

form1.release

라고 했더니 에러가 안나고 잘 되네요.



그래도, 질문 form1.formclose(...); <=== 요기

부르는 방법좀 갈켜주세요.



그리고, 괜찮으시다면 free vs release 도 좀...















castle road wrote:

> procedure Tform1.formclose(sender : tobject ; action : TcloseAction)

> begin

> action := cafree;

> end;

>

> procedure Tform1.btnclick(sender: Tobject);

> begin

> if sender = button1 then

> form1.formclose(...); <=== 요기

> end;

>

> 요런건데요. formclose안에 오떤것을 넣어주어야 합니다.

> 요거 때문에 에러가 나서 컴파일이 안되네요.

> 참고로 이 폼은, fsmdichild입니다.

> form1.free 했더니 에러 나더라구요. 왜 에러죠?

>

castle road wrote:

> procedure Tform1.formclose(sender : tobject ; action : TcloseAction)

> begin

> action := cafree;

> end;

>

> procedure Tform1.btnclick(sender: Tobject);

> begin

> if sender = button1 then

> form1.formclose(...); <=== 요기

> end;

>

> 요런건데요. formclose안에 오떤것을 넣어주어야 합니다.

> 요거 때문에 에러가 나서 컴파일이 안되네요.

> 참고로 이 폼은, fsmdichild입니다.

> form1.free 했더니 에러 나더라구요. 왜 에러죠?

>



procedure Tform1.btnclick(sender: Tobject);

begin

if sender = button1 then

Close; <--- 이렇게 하시면 될것 같습니다.

end;