Jump to content

ModalResult Of LoginForm


Ario.Paxaz

Recommended Posts

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...