关于create form
各位大虾:
小弟想直接从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.