안녕하세요..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
이렇게 오류가 발생합니다. 왜 그런가요?
> 안녕하세요..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
> 이렇게 오류가 발생합니다. 왜 그런가요?
>