TdxMessageDialogForm.SetDefaultButton(TMsgDlgBtn) Method

Sets the specified button as the default button in the message dialog box.

Declaration

procedure SetDefaultButton(AButton: TMsgDlgBtn); virtual;

Parameters

Name	Type	Description
AButton	TMsgDlgBtn	The target message dialog button type.

Remarks

The default message box button has focus when the message box is invoked.

Code Example

The following code example sets the No button as default:

Delphi

uses dxMessageDialog;
// ...
var
  ADialog: TdxMessageDialogForm;
  AMessage: string;
begin
  AMessage := 'One or more margins are set outside the printable area of the page.' + #13#10 +
    #13#10 + 'Choose the [B]Yes[/B] button to increase the appropriate margins.';
  ADialog := dxCreateMessageDialog(AMessage, mtWarning, mbYesNoCancel);
  try
    ADialog.SetDefaultButton(mbNo);
    ADialog.ShowModal;
  finally
    ADialog.Free;
end;

C++

#include "dxMessageDialog.hpp"
  TdxMessageDialogForm *ADialog;
  UnicodeString AMessage = "One or more margins are set outside the printable area of the page.\n" +
    "\n" + "Choose the [B]Yes[/B] button to increase the appropriate margins.";
  ADialog = dxCreateMessageDialog(AMessage, wtWarning, mbYesNoCancel);
  try
  {
    ADialog->SetDefaultButton(mbNo);
    ADialog->ShowModal();
  }
  __finally
  {
    delete ADialog;
  }