为什么提示"Resource TMyForm not Found"?

yuzhiyong 2004-05-08 10:00:49
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, UMyVCL;

type
TForm1 = class(TMyForm)
Button1: TButton;
Label1: TLabel;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var bl: TMyForm;
begin
bl:=TMyForm.Create(nil); //提示"Resource TMyForm not Found"?
bl.Showmodal; //请问是什么问题?如何解决?
freeandnil(bl);
end;

end.
...全文
262 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuzhiyong 2004-05-14
  • 打赏
  • 举报
回复
没人知道!我还是用模板算了.
yuzhiyong 2004-05-09
  • 打赏
  • 举报
回复
up
yuzhiyong 2004-05-08
  • 打赏
  • 举报
回复
1.我有在加Uses中加入UMyVCL单元;
2.工程中也添加了UMyVCl单元;
我上面的代码都有呀!?
ckendy 2004-05-08
  • 打赏
  • 举报
回复
bl:=TMyForm.Create(nil); 改为bl:=TMyForm.Create(self);
你的TMYFORM继承了什么?
qiume 2004-05-08
  • 打赏
  • 举报
回复
UMyVCL单元中定义了TForm继承过来TMyForm的类

// uses UMyVCL
qiume 2004-05-08
  • 打赏
  • 举报
回复
找到包含 TMyForm 的单元,加到工程中
yuzhiyong 2004-05-08
  • 打赏
  • 举报
回复
UMyVCL单元中定义了TForm继承过来TMyForm的类
hch_45 2004-05-08
  • 打赏
  • 举报
回复
TMyForm 单元名.dfm有没有存在?
lxftwo 2004-05-08
  • 打赏
  • 举报
回复
改一下:
bl:=TMyForm.Create(nil); 改为bl:=TMyForm.Create(self);

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧