来宾发言:
var
TMPFORM : Tform ;
begin
Try
application.CreateForm(TFdecoform,TMPFORM) ;
TMPFORM.Name:=TNAME;
TMPFORM.Show;
Except
ON E:EXCEPTION DO
Application.MessageBox(PCHAR('不能生成窗体,原因:'+E.Message),'系统出错信 息',mb_ok+mb_iconerror)
End;
end;
运行后显示:---------------------------
不能生成窗体,原因:Invalid pointer operation
请高手们不吝赐教!!!!
a,不是每次都不能生成
b,软件中有窗体生成成功则其它的窗体也有可能成功,意即成功一个,其它的也可运行
var
TMPFORM : Tform ;
begin
Try
application.CreateForm(TFdecoform,TMPFORM) ;
TMPFORM.Name:=TNAME;
TMPFORM.Show;
Except
ON E:EXCEPTION DO
Application.MessageBox(PCHAR('不能生成窗体,原因:'+E.Message),'系统出错信 息',mb_ok+mb_iconerror)
End;
end;
运行后显示:---------------------------
不能生成窗体,原因:Invalid pointer operation
请高手们不吝赐教!!!!
a,不是每次都不能生成
b,软件中有窗体生成成功则其它的窗体也有可能成功,意即成功一个,其它的也可运行
TFdecoform是什麽?
是不是應該這樣寫啊...
application.CreateForm(TForm(TFdecoform),TMPFORM) ;
還是
application.CreateForm(TForm,TMPFORM) ;