MessageDlg Don't Work Well

[joyfack]

Please i'm usin MessageDlg to ask and make warning in my web application. But it not workin well. 

The instructions after se click of the user don't execute.

 if MessageDlg('Did you Need to save Data ?',mtConfirmation, [mbYes, mbNo] ) = mrYes then
        begin
            with DM.ADO_Enr_1 do
                          begin
                          close;
                          SQL.Clear;
                          SQL.Add('INSERT INTO Product (name, price) Values (:name,:price)');
                          Parameters.ParamByName('name').Value:= EdName.Text;
                          Parameters.ParamByName('price').Value:= EdPrice.Text;
                          ExecSQL;
                          end;

                         EdName.Clear;
                         EdPrice.Clear;

                         MessageDlg('Enregistrement réalisé avec succé',mtConfirmation,[mbok]);

            end
  else

The block Begin ...... End is not execute.

 

Thanks in advance.

[Farshad Mohajeri]

Hi,

You need to enable blocking mode or use non-blocking version:

http://www.unigui.com/doc/online_help/api/uniGUIDialogs_MessageDlg@string@TMsgDlgType@TMsgDlgButtons.html

http://www.unigui.com/doc/online_help/api/uniGUIDialogs_MessageDlg@string@TMsgDlgType@TMsgDlgButtons@TUniDialogCallBackAnonProc.html

[joyfack]

@Farshad Mohajeri Please how to  enable blocking mode

[Farshad Mohajeri]

Just now, joyfack said:

@Farshad Mohajeri Please how to  enable blocking mode

Please refer to links in my above post.

Thanks

[x11]

MessageDlg(constCloseWindows, mtWarning, mbYesNo, CloseCallbackAnonProc);

procedure TfmmParentSearchResults.CloseCallbackAnonProc(Sender: TComponent; Res: Integer);
begin
  if Res = mrYes then
  begin
    ...
    ...
  end;
end;