Question about messagedlg

[flexdev]

 

Hi, I encountered difficulties in using messagedlg, on some occasions it seems to not work, in particular the message is show but the callback procedure is not execute.

Example:

procedure TgenericformGrid.UniFormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  if DSGrid.State in [dsEdit, dsInsert] then
  begin
    MessageDlg('Dati non salvati , salvo prima di uscire? '  , mtWarning, [mbOK,mbCancel],
      procedure (Sender: TComponent; Res: Integer)
      begin
        if res = mrOk then
          DSGrid.DataSet.Post;

      end
    )
  end;

end;

 

Best Regards.