ModalResult Of LoginForm

[Ario.Paxaz]

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.

 

[Sherzod]

Hi,

 

I couldn't reproduce your issue,

 

Can you make a small testcase for this?

 

Best regards,

[Ario.Paxaz]

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.

[Sherzod]

Please check your Button ModalResult property too