Q&A

  • 안녕하세요.. 폼닫는을때 생기는 문제땜에..
안녕하세요.. (__)



질문을 좀 드릴려구 하는데... 도와주실거죠?



폼을 닫을때 X 버튼을 누르면 OnClose Event 가 발생하지요?



거기다가



procedure TMornitorForm.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

MornitorForm := nil;

Action := caFree;

end;



이렇게 적어주었습니다.



폼이 잘 닫히더군요..



근데 이걸 버튼을 만들어서 똑같이 적으니까 에러가 생기는겁니다.



procedure TMornitorForm.BitBtn2Click(Sender: TObject;

var Action: TCloseAction);

begin

MornitorForm := nil;

Action := caFree;

end;



비트맵 버튼을 썼는데 컴파일할때 이상한걸 물어보더군요..



그래서 암생각없이 그러라고 했는데 이게 단추를 눌러도 아무 반응을 안하는겁니다..



-_-;;



단추 눌러서 폼 정상적으로 종료시킬하면 어떻게해야되죠?



폼은 자식폼이구여 폼이름은 Mornitor 폼입니다.



다음과 같이도 해봤습니다



MornitorForm.Free --> 에러

MornitorForm := nil --> 아무반응없음

close --> 창몇번 띄우면 메모리 부족하다고 낑낑대요..



조언부탁드립니다.



1  COMMENTS
  • Profile
    bengi 2001.12.30 02:10
    [ 답변 ]



    procedure TMornitorForm.BitBtn2Click(Sender: TObject;

    var Action: TCloseAction);

    begin

    close();

    end;



    procedure TMornitorForm.FormClose(Sender: TObject;

    var Action: TCloseAction);

    begin

    Action := caFree;

    end;



    procedure TMornitorForm.FormDestroy(Sender: TObject);

    begin

    MornitorForm := Nil;

    end;



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





    흐미 wrote:

    > 안녕하세요.. (__)

    >

    > 질문을 좀 드릴려구 하는데... 도와주실거죠?

    >

    > 폼을 닫을때 X 버튼을 누르면 OnClose Event 가 발생하지요?

    >

    > 거기다가

    >

    > procedure TMornitorForm.FormClose(Sender: TObject;

    > var Action: TCloseAction);

    > begin

    > MornitorForm := nil;

    > Action := caFree;

    > end;

    >

    > 이렇게 적어주었습니다.

    >

    > 폼이 잘 닫히더군요..

    >

    > 근데 이걸 버튼을 만들어서 똑같이 적으니까 에러가 생기는겁니다.

    >

    > procedure TMornitorForm.BitBtn2Click(Sender: TObject;

    > var Action: TCloseAction);

    > begin

    > MornitorForm := nil;

    > Action := caFree;

    > end;

    >

    > 비트맵 버튼을 썼는데 컴파일할때 이상한걸 물어보더군요..

    >

    > 그래서 암생각없이 그러라고 했는데 이게 단추를 눌러도 아무 반응을 안하는겁니다..

    >

    > -_-;;

    >

    > 단추 눌러서 폼 정상적으로 종료시킬하면 어떻게해야되죠?

    >

    > 폼은 자식폼이구여 폼이름은 Mornitor 폼입니다.

    >

    > 다음과 같이도 해봤습니다

    >

    > MornitorForm.Free --> 에러

    > MornitorForm := nil --> 아무반응없음

    > close --> 창몇번 띄우면 메모리 부족하다고 낑낑대요..

    >

    > 조언부탁드립니다.

    >