关于create form

[DataBind]

各位大虾：
小弟想直接从TForm 实例出一个Form（不需要dfm文件,无设计期间的form）.遇到以下困难，请伸出援助之手。

工程文件：
program pos;
uses
Forms,
main in 'main.pas' {Form1},
func_pack in 'func_pack.pas';
{$R *.RES}
begin
Application.Initialize;
func_pack.gf_Login ;
// Application.CreateForm(TForm1, Form1);已注销
Application.Run;

单元文件：
unit func_pack;

interface
uses forms;
function gf_Login(): Boolean;

implementation
function gf_Login(): Boolean;
var
lf_Login : TForm;
begin

lf_Login.Create(nil);//some error here 地址访问错误
lf_Login.Width := 300;
lf_Login.Height :=250;
lf_Login.Position := poScreenCenter;
lf_Login.ShowModal;
result :=True;
end;
end.

[w102272]

lf_login:=nil;
Try
lf_login:=Tform.create(nil);
lf_Login.Width := 300;
lf_Login.Height :=250;
lf_Login.Position := poScreenCenter;
lf_Login.ShowModal;
result :=Truefinally;
finally
if assigned(lf_Login) then lf_Login.free;
end;

另外，把lf_Login放到interface下面，这样才是全局变量。

[bbslucky]

也可以直接将代码写到program中

[meijg]

创建实例
lf_login:=TForm.Create(nil);
记着用完要释放
lf_login.free;

[shylsz]

用application.createform(Tlf_login,lf_login)