TdxMessageDialogForm.SetDefaultButton(TMsgDlgBtn) Method

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

Declaration

delphi

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: Change the Default Message Box Button

The following code example sets the No button as default:

Delphi
C++

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 + 'Click the [B]Yes[/B] button to increase these margins.';
  ADialog := dxCreateMessageDialog(AMessage, mtWarning, mbYesNoCancel);
  try
    ADialog.SetDefaultButton(mbNo);
    ADialog.ShowModal;
  finally
    ADialog.Free;
  end;
end;

cpp

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