在win2000中所有窗體都能正常打開﹐但在win98中﹐有部分窗體不能正常打開﹐
打開時顯示"Invalid Pointer Operation"﹐不正常的被打開窗體的create和show事件中都未寫代碼。我創建窗體(MDI窗體)的代碼﹕
procedure TMainFrm.CreateFrm(var Form: TForm; TCForm: TFormClass; IsShowModal: Boolean);
begin
if Form=nil then
begin
Form:=TCForm.Create(application);
end;
if IsShowModal then
Form.ShowModal
else
Form.Show;
end;
procedure TMainFrm.acnRecivMainPoExecute(Sender: TObject);
begin
CreateFrm(TForm(ReceMaintPoFrm),TReceMaintPoFrm,False);
end;
打開時顯示"Invalid Pointer Operation"﹐不正常的被打開窗體的create和show事件中都未寫代碼。我創建窗體(MDI窗體)的代碼﹕
procedure TMainFrm.CreateFrm(var Form: TForm; TCForm: TFormClass; IsShowModal: Boolean);
begin
if Form=nil then
begin
Form:=TCForm.Create(application);
end;
if IsShowModal then
Form.ShowModal
else
Form.Show;
end;
procedure TMainFrm.acnRecivMainPoExecute(Sender: TObject);
begin
CreateFrm(TForm(ReceMaintPoFrm),TReceMaintPoFrm,False);
end;
解决方案 »
- dbcomboboxeh 怎么实现多选框和查询?
- 请帮忙看看,下面的代码,为什么在某些机器的系统下会出错?
- 菜鸟问题:在过程中写edit1.text:=''出错,说Edit1未定义。
- 编写dll时二维数组这样写可以吗,那在VB中如何调用这个DLL
- DataModule单元与一般的窗体单元有何区别?请不吝指教,谢谢!
- 为什么你看不到新贴了.没有15号的贴子全是14号以后的贴子?
- 哪位前辈有delphi开发游戏的入门与提高的教程,可以下载给我吗?
- 求解:有一个DELPHI做的即时交流软件,想实现在对话框中直接传递显示的图片,有没有办法?
- 急寻zswang(伴水)
- ★★★快来抢100分★★★:我控诉<<delphi5开发人员指南>>,它光盘里的例子程序怎么有那么多的bug,还花了我那么多的钱?
- 什么样才是程序员??
- ■■■送大家一个元旦礼物!!顺便散分!■■■
好象是在98下重編繹一次!你檢查你窗體中的控件