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.

解决方案 »

  1.   

    改一下:
    bl:=TMyForm.Create(nil);   改为bl:=TMyForm.Create(self);
      

  2.   

    TMyForm 单元名.dfm有没有存在?
      

  3.   

    UMyVCL单元中定义了TForm继承过来TMyForm的类
      

  4.   

    找到包含 TMyForm 的单元,加到工程中
      

  5.   

    UMyVCL单元中定义了TForm继承过来TMyForm的类// uses UMyVCL
      

  6.   

    bl:=TMyForm.Create(nil);   改为bl:=TMyForm.Create(self);
    你的TMYFORM继承了什么?
      

  7.   

    1.我有在加Uses中加入UMyVCL单元;
    2.工程中也添加了UMyVCl单元;
    我上面的代码都有呀!?