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. Quote 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, Quote 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. Quote 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.