假如tform1是主窗口,程序运行时,主窗口就会出现,tform2是登陆窗口,要求输入密码之后才能出现主窗口,我该怎么做呢?请大侠指教...谢谢..
感谢,学习到了! 另外在应用当中发现有点小状况,就是下方的写法会造成登录按钮需要点击两次才能进入主窗体。
if Form22.ShowModal <> mrok then
Application.Terminate;
要处理这个问题需要将上方代码改成:
if Form22.ModalResult<> mrok then
Application.Terminate;
希望能对大家有用
我找你的方法做了,可是没出现预期的效果艾...能不能再详细点,我是个初学者
追答//form2的代码
procedure TForm2.Button1Click(Sender: TObject);
begin
ModalResult := mrNone;
if SameText(Edit1.Text, 'admin') and (Edit2.Text = 'admin') then
ModalResult := mrOk
else
ShowMessage('用户名或密码错误!');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ModalResult := mrCancel;
end;
//form1的代码
procedure TForm1.FormCreate(Sender: TObject);
var
form22: TForm2;
begin
form22 := TForm2.Create(Application);
if Form22.ShowModal mrok then
Application.Terminate;
end;