project 只用代码 创健 form1

Question

program Project1;//interface;uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ActnList, ExtCtrls, Menus,
  DBXpress, FMTBcd, Provider, SqlExpr, DBTables, OleServer, CmAdmCtl,
  TabNotBk, ExtDlgs, DBLocalB,MConnect, DBClient, SConnect,
  ObjBrkr, DBLocal, DBLocalS, DbChart, dbcgrids, DBCtrls, DdeMan, OleCtnrs,
  MPlayer, ComCtrls, ImgList, CustomizeDlg, ActnCtrls, ToolWin, ActnMan,
  ActnMenus, TeeProcs, TeEngine, Chart, ValEdit, AppEvnts, CheckLst, Mask,
  Buttons,Shellapi, jpeg,Commctrl,Math;//{$R *.res}type
  TForm1 = class(TForm)
end;var
  form1:TForm1; begin
   begin
   form1:= TForm1.Create(nil);
 //Form1.Parent:=self;
 //form1:=TForm1.create(application);//当应用程序关闭时form1会被释放
 //form1:=TForm1.create(self);// 当前窗体释放时form1会被释放
 //form1:=TForm1.create(nil);// 手动释放  form1.SetBounds(60,320,73,33);
  form1.Caption:='Close';  end;
  {
  Application.Initialize;
  Application.Run;
  }
 end.怎么在只有一个  工程文件  用代码   创健  form1  呀？

Answer 1

program Project1;//interface;uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ActnList, ExtCtrls, Menus,
  DBXpress, FMTBcd, Provider, SqlExpr, DBTables, OleServer, CmAdmCtl,
  TabNotBk, ExtDlgs, DBLocalB,MConnect, DBClient, SConnect,
  ObjBrkr, DBLocal, DBLocalS, DbChart, dbcgrids, DBCtrls, DdeMan, OleCtnrs,
  MPlayer, ComCtrls, ImgList, CustomizeDlg, ActnCtrls, ToolWin, ActnMan,
  ActnMenus, TeeProcs, TeEngine, Chart, ValEdit, AppEvnts, CheckLst, Mask,
  Buttons,Shellapi, jpeg,Commctrl,Math;//{$R *.res}type
  TForm1 = class(TForm)
end;var
  form1:TForm1; begin
   Application.Initialize;
   form1:= TForm1.Create(nil);
   form1.SetBounds(60,320,73,33);
   form1.Caption:='Close';
   Application.Run;
 end.

Answer 2

DelphiTeacher
报错 啊  ？project project.exe raised exception clsaa eresnotfound with message 'resource tform1 not found'.process stopped.use step or run to continue 

Answer 3

program Project1;uses
  Forms;{$R *.res}
var
  form1:TForm; begin
  Application.Initialize;
  Application.CreateForm(TForm, Form1);
  Form1.SetBounds(60,320,73,33);
  form1.Caption:='Close';
  Application.Run;
end.

Answer 4

form里的内容也希望代码来添加？而不是使用设计好的dfm？