안녕하세요 Form1, Form2, Form3 를 만들어 놓았습니다.



Form1은 메인이며 폼2의 TQuickRep를 호출합니다.

Form2는 QuickRep1, QuickRep2 로 두개의 리포트를 디자인했습니다.

Form3는 사용자 정의 미리보기폼 이며 버튼을 두개 두어 QRPreview1 에 다음과 같이 번갈아 뿌려주도록 했습니다.







Form1: 메인폼

try

Form2 := TForm2.Create(self);

Form2.QuickRep1.Preview;

finally

Form2.free;

end;







Form2: 퀵레포트 컴포넌트폼



procedure TForm2.QuickRep2Preview(Sender: TObject);

begin

Form3 := TForm2.Create(self);

Form3.QRPreview1.QRPrinter :=TQRPrinter(sender);

Form3.show;

end;



procedure TForm2.QuickRep1Preview(Sender: TObject);

begin

Form3.QRPreview1.QRPrinter :=TQRPrinter(sender);

end;







Form3: 미리보기폼



procedure TForm3.Button1Click(Sender: TObject);

begin

Form2.QuickRep1.Preview;

end;



procedure TForm3.Button2Click(Sender: TObject);

begin

Form2.QuickRep2.Preview;

end;









문제는 실행시엔 버튼클릭시 각각의 QuickRep가 번갈아 미리보기가 잘 됩니다.

그러나 종료시에 "Control '' has no parent window" 에러가 뜹니다.

어떻게 해결해야할지...

저 메시지가 의미하는것이 무엇인가요? 실행은 잘 되는데 왜 종료시점에서 문제가 되는지 모르겠네요..



정리하자면 한개의 폼에 TQuickRep를 여러개 두고 새롭게 디자인한 미리보기폼과 연결해서

선택적으로 미리보기할수 있도록 하려고 합니다. 지금현재는 종료시 에러뜨는거 빼곤 잘 되고 있습니다.

도와주세요....