ShowModal,要按两次才可以,该怎么处理
ShowModal,要按两次才可以
主界面:
登录窗口:
需要按两次按钮,Login登录窗口才可以消失转到主窗体上
------解决方案--------------------
Button2.ModalResult :=mrOk;
改成
ModalResult := mrOk;
主界面:
- Delphi(Pascal) code
procedure tmainform.FormCreate(Sender: TObject); var Login:TLoginForm; begin Login :=TLoginForm.Create(Self); if Login.ShowModal=mrOk then begin end; end;
登录窗口:
- Delphi(Pascal) code
procedure TLoginForm.Button2Click(Sender: TObject);//Button2的默认ModalResult为mrNone begin if (Length(Trim(Edit1.Text))=0) then begin ShowMessage('输入帐号'); Exit; end; if (Length(Trim(Edit2.Text))=0) then begin ShowMessage('输入密码'); Exit; end; Button2.ModalResult :=mrOk; end;
需要按两次按钮,Login登录窗口才可以消失转到主窗体上
------解决方案--------------------
Button2.ModalResult :=mrOk;
改成
ModalResult := mrOk;