Q&A

  • 제발 좀 알려주시기 바랍니다.(main폼과 sub폼의 관계)
안녕하세요...

간단한 프로그램을 개발하고 있는중인데.....

main폼에서 1. sub폼을 띄운 상태에서 다시 sub폼을 띄울 수 있게 하려고,

sub폼을 showmodal이 아닌 show로 해주고 sub폼이 보일때 최상위 폼으로 만들었습니다....

그래서 1.는 해결이 되었는데, 이렇게 하다보니 sub폼에서 보고서를 출력할경우가 있습니다. 이럴경우에는 보고서 폼이 위에 있어야 하는데, sub폼을 최상위폼으로 만들다 보니, sub폼 아래에 보고서 폼이 보입니다.... 혹시 해결책이라도.......



위에 있는 문제를 해결하기 위해서 , 보고서를 보일때, sub폼을 최소화폼으로 만들어 주었습니다. 그리고 보고서(동적폼)가 free가 되었을때, 다시 sub폼을 원래대로 해주는 방법을 채택했는데.... 이것 또한 보고서 폼을 보이고 다시 보일경우,

Project main1.exe raised excption class EAccessViolation with messagee 'access violation at address 004d21c4 in module'main1.exe',이러한 에러 메세지가 나타납니다.



저의 코딩내용입니다.

valju_f.WindowState := wsminimized;

bupum_Jumun2 := Tbupum_Jumun2.Create(self);

bupum_Jumun2.QRLabel19.Caption := Edit1.text + '-' + Edit2.Text;

bupum_Jumun2.QuickRep2.preview;

bupum_Jumun2.Free;

valju_f.WindowState := wsnormal;



1  COMMENTS
  • Profile
    이주흥 1999.10.02 22:40
    blueofsky wrote:

    > 안녕하세요...

    > 간단한 프로그램을 개발하고 있는중인데.....

    > main폼에서 1. sub폼을 띄운 상태에서 다시 sub폼을 띄울 수 있게 하려고,

    > sub폼을 showmodal이 아닌 show로 해주고 sub폼이 보일때 최상위 폼으로 만들었습니다....

    > 그래서 1.는 해결이 되었는데, 이렇게 하다보니 sub폼에서 보고서를 출력할경우가 있습니다. 이럴경우에는 보고서 폼이 위에 있어야 하는데, sub폼을 최상위폼으로 만들다 보니, sub폼 아래에 보고서 폼이 보입니다.... 혹시 해결책이라도.......

    >

    > 위에 있는 문제를 해결하기 위해서 , 보고서를 보일때, sub폼을 최소화폼으로 만들어 주었습니다. 그리고 보고서(동적폼)가 free가 되었을때, 다시 sub폼을 원래대로 해주는 방법을 채택했는데.... 이것 또한 보고서 폼을 보이고 다시 보일경우,

    > Project main1.exe raised excption class EAccessViolation with messagee 'access violation at address 004d21c4 in module'main1.exe',이러한 에러 메세지가 나타납니다.

    >

    > 저의 코딩내용입니다.

    > valju_f.WindowState := wsminimized;

    > bupum_Jumun2 := Tbupum_Jumun2.Create(self);

    > bupum_Jumun2.QRLabel19.Caption := Edit1.text + '-' + Edit2.Text;

    > bupum_Jumun2.QuickRep2.preview;

    > bupum_Jumun2.Free;

    > valju_f.WindowState := wsnormal;

    >



    아래와 같이 예외처리를 해보세요...

    bupum_Jumun2 := Tbupum_Jumun2.Create(self);

    try

    valju_f.WindowState := wsminimized;

    bupum_Jumun2.QRLabel19.Caption := Edit1.text + '-' + Edit2.Text;

    bupum_Jumun2.QuickRep2.preview;

    finally

    bupum_Jumun2.Free;

    valju_f.WindowState := wsnormal;