unit Unit1;interfaceuses
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.
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.
解决方案 »
- 如果获得当前执行程序的进程句柄?
- dbgrideh 格式化输入和数据转换难题
- 请教一个模式窗体和消息处理的问题.
- 昨天晚上有人大喊:射了!射了!射了!我射了!下面继续!下面继续!
- ADO操作ORACLE的BLOB字段的问题?急啊,请高手帮忙
- 怎样得到一个线程的CPU使用率阿?加急,弟兄们帮忙啊
- 如何判断ComboBox中有多少项item?
- 请专家出面:如何给一个自己写的Windows Service发消息或和他通讯,我发给普通应用程序没问题,可Service既不能发给别的应用,也不能接收,怎
- delphi程序员的前途?
- 很简单的一个问题,把myLabel[j]=new TQRLabel(this);翻译成PASCAL语言怎么写,mylabel是QRLABEL控件的指针
- adoquery帅选中怎样用大于或小于的参数,急,高分相送
- 求救,实现MAIL发送功能
bl:=TMyForm.Create(nil); 改为bl:=TMyForm.Create(self);
你的TMYFORM继承了什么?
2.工程中也添加了UMyVCl单元;
我上面的代码都有呀!?