다음과 같은 코드를 통해서 TImage 가 click 됐을때 윈도우를 하나 띄우고 real size로 이미지를 보여주게 했습니다.
그런데... 이렇게 하고 나서 이 procedure를 call 한 form을 닫으면 CPU Error화면이 뜨네요. ^^;;
고수님들의 고견 기다립니다. 도와주세요. ^^;;
<!--CodeS-->
procedure Tfrm_main.vew_img_original_size(Sender: TObject);
begin
if TImage(Sender).Picture.Graphic <> Nil then begin
with frm_img_big_view do begin
Image1.Picture.Graphic := TImage(Sender).Picture.Graphic;
ShowModal;
end;
end;
end;
<!--CodeE-->
참고로 CPU Error 화면 같이 첨부합니다.
참 Delphi 6 입니다.
그래도 이상하네요.
이미지를 real size로 보여주기 위한 Form에는 TImage Component와 TButton 하나밖엔 없습니다.
그리고 WindowStatus Property가 wsMaximized 로 설정되어 있었죠.
여기서 WindowStatus Property 를 wsNormal 로 하니까 해당 에러가 발생하지 않는군요.
지금은 이미지 보여주는 Form 의 Activate Event 에서 수동으로 WindowStatus 에 wsMaximized 를 넣어줍니다.
그래도 혹시나 외 그런지 이유를 아시는 분들이 계시면 알려주시면 좋겠네요. ^^