delphi 登陆对话框怎麽设置？？？？

我也来支个招
用Form1当启动窗体，uses unit2;
在Form2中设置两个按钮，把它们的Caption分别设置为：确认、取消，ModelResult属性分别设置为：mrYes、mrNo
在Form1的OnShow中来判断
procedure TForm1.FormShow(Sender: TObject);
begin
if (Form2.ShowModal <> mrYes) or
(Form2.Edit1.Text <> '2') or
(Form2.Edit2.Text <> '3') then
close;
{也即是当不添入正确的用户名和密码，以及在选择按钮的时候没有点确认的时候，程序自动关闭}
end;

在工程文件中 加一句话就行了
工程文件你点 view unit (三个白纸重叠一起的那个按钮)
选择你应用程序一个名字的那个 就跳出 工程单元了
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in '..\d6\Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
form2.ShowModal;//这里就行了 程序运行form2就先显示了
Application.Run;
end.

然后你在 form2里 作各种判断 像点哪个按钮或者查数据库什么的都行 然后 form2.colse; 就OK 了

Form2.ShowModal就能显示Form2
动态生成也很简单的
先在接口处uses unit2;
然后在要生成的地方调用Create就行了

procedure TForm1Activate(Sender:TObject);
var
F2:TForm2;
begin
F2:=TForm2.Create(self);
F2.showModel;
endl