关于登录窗口设计

Question

我想做一个登录界面有2个 form的，form1 为登录输入密码的地方， form2为显示本地指定图片和连数据库作为公告只用。要求在双击程序的时候2个界面都打开哈。在关闭form1的时候2个界面全都关闭掉。怎么写哈？

Answer 1

程序开始时，form1.show;form2.show;form1 onclose时，form2.close;(form1,form2在全局模块中创建）

Answer 2

uses unit2;
var Form:TForm2;procedure TForm1.FormShow(Sender: TObject);
begin
  Form:=TForm2.Create(self);
  Form.Show;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  FreeAndNil(Form);
end;

Answer 3

http://topic.csdn.net/u/20120815/09/16f2bf18-ec66-4411-a457-a4c928afc3a1.html

Answer 4

再加上：unit Main;
uses Unit1;procedure TMainForm.OnCreate(Sender: TObject);
begin
  with TForm1.Create(Application) do
    try
      ShowModal;
    finally
      Free;
    end;
end;