登陆方式设计

1.

 1 program Project1;
 2 
 3 uses
 4   Vcl.Forms,
 5   Unit1 in 'Unit1.pas' {Form1},
 6   Unit2 in 'Unit2.pas' {Form2};
 7 
 8 {$R *.res}
 9 
10 begin
11   Application.Initialize;
12   Application.MainFormOnTaskbar := True;
13   if Login() then
14     Application.CreateForm(TForm1, Form1);
15   Form1.Caption := '登录成功';
16   Application.Run;
17 end.

View Code