안녕하세요.. (__)
질문을 좀 드릴려구 하는데... 도와주실거죠?
폼을 닫을때 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 --> 창몇번 띄우면 메모리 부족하다고 낑낑대요..
조언부탁드립니다.
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 --> 창몇번 띄우면 메모리 부족하다고 낑낑대요..
>
> 조언부탁드립니다.
>