Ario.Paxaz Posted April 24, 2017 Share Posted April 24, 2017 Hi I write below code ,and check edits on login Form isn't empty. procedure Tfgetsqlpass.UniButton1Click(Sender: TObject); begin if (edt_uname.Text ='' ) and (edt_pword.Text = '') then Begin ModalResult := mrNone; ShowMessage('Please fill username and password!'); Exit End; end; But after Button1Click application terminate. Best Regards. Link to comment Share on other sites More sharing options...
Sherzod Posted April 24, 2017 Share Posted April 24, 2017 Hi, I couldn't reproduce your issue, Can you make a small testcase for this? Best regards, Link to comment Share on other sites More sharing options...
Ario.Paxaz Posted April 24, 2017 Author Share Posted April 24, 2017 Hi I write TestCase ,But in TestCase the procedure work correct. http://uupload.ir/view/4wlf_loginchkusername.rar But in my main project,don't work Best Regards. Link to comment Share on other sites More sharing options...
Sherzod Posted April 24, 2017 Share Posted April 24, 2017 Please check your Button ModalResult property too Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now