Q&A

  • 고수님들~~폼에서 tchartfx가 있는폼 부를때 치명적 오류가 떠여~
안녕하세요..form1에서 버튼을 누르면 form2를 모달폼으로 부를려고 하거든여.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls,OleCtrls, chartfx3;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

uses unit2;

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

//Title 지정

form2.ChartFx1.Title[CHART_LEFTTIT] := 'test';

form2.ShowModal;

end;



end.





여기까지가 form1소스구여.





unit Unit2;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

OleCtrls, chartfx3;



type

TForm2 = class(TForm)

Chartfx1: TChartfx;

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form2: TForm2;



implementation



{$R *.DFM}



end.

여기까지가 form2소스입니다.

여기서 컴파일을 하면 컴파일은 됩니다.

근데 form1에 버튼을 클릭하면은 오류가 발생합니다.

project project1.exe raised exception class eolesyserror with message'치명적오류입니다.'process stopped use step or run continue

이렇게 오류가 발생합니다. 왜 그런가요?



1  COMMENTS
  • Profile
    BLUE 2001.11.24 03:26
    촙오 wrote:

    > 안녕하세요..form1에서 버튼을 누르면 form2를 모달폼으로 부를려고 하거든여.

    >

    > unit Unit1;

    >

    > interface

    >

    > uses

    > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    > StdCtrls,OleCtrls, chartfx3;

    >

    > type

    > TForm1 = class(TForm)

    > Button1: TButton;

    > procedure Button1Click(Sender: TObject);

    > private

    > { Private declarations }

    > public

    > { Public declarations }

    > end;

    >

    > var

    > Form1: TForm1;

    >

    > implementation

    > uses unit2;

    > {$R *.DFM}

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin



    //요기 추가 해주세요

    application.CreateForm(Tform2, form2);

    //추가 끝~~~~~~~~



    > //Title 지정

    > form2.ChartFx1.Title[CHART_LEFTTIT] := 'test';

    > form2.ShowModal;

    > end;

    >

    > end.

    >

    >

    > 여기까지가 form1소스구여.

    >

    >

    > unit Unit2;

    >

    > interface

    >

    > uses

    > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    > OleCtrls, chartfx3;

    >

    > type

    > TForm2 = class(TForm)

    > Chartfx1: TChartfx;

    > private

    > { Private declarations }

    > public

    > { Public declarations }

    > end;

    >

    > var

    > Form2: TForm2;

    >

    > implementation

    >

    > {$R *.DFM}

    >

    > end.

    > 여기까지가 form2소스입니다.

    > 여기서 컴파일을 하면 컴파일은 됩니다.

    > 근데 form1에 버튼을 클릭하면은 오류가 발생합니다.

    > project project1.exe raised exception class eolesyserror with message'치명적오류입니다.'process stopped use step or run continue

    > 이렇게 오류가 발생합니다. 왜 그런가요?

    >