初学delphi 2个form的 问题
想在form1 button1里面打开form2后 form1自己关闭 如何写啊
我这样写 不行
if ADOStoredProc1.Parameters[2].Value=self.Edit1.Text then
var Form2:TForm2
begin
Form2:=TForm2.create(self);
Form2.showmodal;
Form2.fress;
end
else
self.Label1.Caption:= '对不起，用户名或密码错误 '

[解决办法]
登录窗体？
用模式窗体吧。
TFrmLogin=class(tForm);
...

var
frmlogin:tfrmlogin;

...
im...
procedure TfrmMain.oncreate(sender:Tobject);

begin

frmlogin:=tfrmlogin.create(nil);
if frmlogin.showmodal=mrok then
showmessage( 'login success ')
else
begin
showmessage( 'login fails ');
application.terminate;
end;

end;