TEditForm.Create(Self),但编译通不过,提示未定义TEditForm类。 var myeditform : teditform;beginmyeditform := teditform.create(self);end;//看看这个行不行。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你先new个form,:editform把它设为不自动创建然后 editform:=teidtform.create(application) Uses (EditFormUnitFile);Var EditForm : TEditForm;begin EditForm := TEditForm.Create(Application);end; 谢谢,你们的方法是对,但我并不想这样写。我想弄懂书上的写法。我把问题再说清楚一些:我建了两个FORM:FrameForm和EditForm,分别为MDIframe和MDIChild窗口。MDIframe为初始自动创建窗口。1. FrameForm的一段代码://动态新建一个子窗体 procedure TFrameForm.New1Click(Sender:TObject); begin TEditForm.Create(Self); end; 2. EditForm的一段代码:(调用FrameForm的事件代码)//新建一个子窗体procedure TEditForm.New1Click(Sender:TObject);begin FrameForm.New1Click(Sender);end;编译时总提示TEditForm未定义。请问,改怎么定义? 是不是没有引用?在uses里加上相应单元再试一下。 因为根本就没有TEditForm类啊!有这样的代码吗?TEditForm=class(TForm)…… EditForm中有 TEditForm = class(TForm) 代码,FrameFform中没有。应该加在哪里?加在哪里都不行!提示:应该是:不该是= 提示错误如下:[Error] Unit1.pas(32): Undeclared identifier: 'teditfrom' 那就对了!需要在FrameFform中,加uses EditForm! EditForm窗口文件名UNIT2.pas.我加了USES EditForm; 提示找不到EditForm.dcu.我又改成了USES Unit2; 还是提示找不到TEditForm。 怎么样才能随便地删除数据 C/S程序升级更新思路 系统中如何有效防止DeDe的反编译? @@@@@@ 如何制作 skn 文件 @@@@@@ 停车场收费记费问题====急!!!! 为什么会出现说无效的SQL语句 怎么控制热敏打印机 一个三层应用问题! DELPHI数据库设计求助,敬请高高手!!!!!!!!!!!!!!!!!! 大侠请回答:在程序中实现浏览AUTOCAD图形功能???分数不够可以再加。 哪位大侠帮我翻译一下 1000分求救!两个程序间拖动的问题
把它设为不自动创建然后
editform:=teidtform.create(application)
begin
EditForm := TEditForm.Create(Application);
end;
我想弄懂书上的写法。
我把问题再说清楚一些:我建了两个FORM:FrameForm和EditForm,分别为MDIframe和MDIChild窗口。
MDIframe为初始自动创建窗口。1. FrameForm的一段代码:
//动态新建一个子窗体
procedure TFrameForm.New1Click(Sender:TObject);
begin
TEditForm.Create(Self);
end; 2. EditForm的一段代码:(调用FrameForm的事件代码)
//新建一个子窗体
procedure TEditForm.New1Click(Sender:TObject);
begin
FrameForm.New1Click(Sender);
end;编译时总提示TEditForm未定义。
请问,改怎么定义?
有这样的代码吗?
TEditForm=class(TForm)
……
FrameFform中没有。应该加在哪里?加在哪里都不行!
提示:应该是:不该是=
[Error] Unit1.pas(32): Undeclared identifier: 'teditfrom'