Search the Community
Showing results for tags 'ModalResult'.
Found 2 results
-
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.
-
How to catch the modal result returned from the called form. Following code works fine in Delphi but it is not working in UniGUI. if GetSQLParaForm.ShowModal = mrOK then // Get the parameter values for the SQL Statement begin //show the result set with the parameters set in GetSQLParaForm GridViewForm.ShowModal; end; In GetSQLParaForm UniButton is ModalResult is set to mrOK ; // does not work procedure TGetSQLParaForm.UniBitBtn1Click(Sender: TObject); begin Modalresult := mrOK; // this also does not work; end; Any one know the alternative way to handle this.
