Q&A

  • MDI폼에서 Normal폼 생성시 참조문제...
MDIChild에서 퀵리포트가 있는 Normal 폼을 생성시켜서 Preview 할려고 하는데

MDIChild의 자료가 참조가 안됩니다. 좀 도와주세여..



MdiChild...



public

sOdrDt: string;



implementation

uses AReport;



procedure TfrmAAA.btnPrintClick(Sender: TObject);

begin

Application.CreateForm(TfrmAReport, frmAReport);

frmMAReport.QuickRep1.Preview;

end;





퀵리포트가 있는 Normal 폼...

implementation

uses AAA;



procedure TfrmAReport.FormCreate(Sender: TObject);

begin

edit1.Text := frmAAA.sOdrDt; <-- Error 발생!!!

edit2.Text := frmAAA.edit1.Text; <-- Error 발생!!!

end;



2  COMMENTS
  • Profile
    델파이 탐 크르즈 2001.10.27 01:45
    초보 wrote:

    > MDIChild에서 퀵리포트가 있는 Normal 폼을 생성시켜서 Preview 할려고 하는데

    > MDIChild의 자료가 참조가 안됩니다. 좀 도와주세여..

    >

    > MdiChild...

    >

    > public

    > sOdrDt: string;

    >

    > implementation

    > uses AReport;

    >

    > procedure TfrmAAA.btnPrintClick(Sender: TObject);

    > begin

    > Application.CreateForm(TfrmAReport, frmAReport);

    > frmMAReport.QuickRep1.Preview;

    > end;

    >

    >

    > 퀵리포트가 있는 Normal 폼...

    > implementation

    > uses AAA;

    >

    > procedure TfrmAReport.FormCreate(Sender: TObject);

    > begin

    > edit1.Text := frmAAA.sOdrDt; <-- Error 발생!!!

    > edit2.Text := frmAAA.edit1.Text; <-- Error 발생!!!

    > end;

    >





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

    안녕하세요..



    frmMAReport.QuickRep1.Preview; 을

    이것으로

    frmMAReport.QuickRep1.PreviewModal 바꿔보세요..

    그러면 아마 에러가 없을듯 하네요...



    그럼 즐코...

  • Profile
    초보 2001.10.27 02:14
    답변은 감사합니다만..

    제가 여쭙고자 하는것은 Create시 이미 Error가 발생한거덩요..

    그러니까 uses 문에 각 unit을 추가해 주었는데도

    Access violation Error가 나거덩요..



    procedure TfrmAAA.btnPrintClick(Sender: TObject);

    begin

    Application.CreateForm(TfrmAReport, frmAReport); <-- Create시 이미 Error 발생

    frmMAReport.QuickRep1.Preview;

    end;





    procedure TfrmAReport.FormCreate(Sender: TObject);

    begin

    edit1.Text := frmAAA.sOdrDt; <-- Error 발생!!!

    edit2.Text := frmAAA.edit1.Text; <-- Error 발생!!!

    end;