program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); // 在工程裏保存一個才行啊。 當然也可以自己手工寫建立窗體的代碼。
Application.Run; end.
program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; // 當然也可以這樣先建一個登錄窗口,驗證通過了,再建主窗體。 With Tfrom1.create(nil) do begin try finally if ModalResult = mrOk then Application.CreateForm(TMainFrm, frmMain) end; end;
Application.CreateForm(TFrmMain, FrmMain); //创建主窗体
Application.Run; //运行
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); // 在工程裏保存一個才行啊。 當然也可以自己手工寫建立窗體的代碼。
Application.Run;
end.
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize;
// 當然也可以這樣先建一個登錄窗口,驗證通過了,再建主窗體。
With Tfrom1.create(nil) do begin
try
finally
if ModalResult = mrOk then Application.CreateForm(TMainFrm, frmMain)
end;
end;
Application.Run;
end.
begin
Thank You Everyone;
end