[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    > Does anyone know a way to change the font in the dialog displayed by
    > the MessageDlg function?

    The Dialogs unit contains the MessageDlg function which in turn calls a
    function called MessageDlgPos. MessageDlgPos calls CreateMessageDialog
    which actually creates the message dialog and returns it. If you alter
    MessgeDlgPos (or create a new one) you can change the font of the
    dialog.

    ex. of a new MessageDlgPos to set font name, size and style:

    function MessageDlgPosSetFont(const Msg: string; DlgType: TMsgDlgType;
      Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; sFontName:
    string;
      iFontSize: Integer; fsStyle: TFontStyles): Integer;
    begin
      with CreateMessageDialog(Msg, DlgType, Buttons) do
        try
          HelpContext := HelpCtx;
          if X >= 0 then Left := X;
          if Y >= 0 then Top := Y;
          // set the font name, size and style
          Font.Name:=sFontName;
          Font.Size:=iFontSize;
          Font.Style:=fsStyle;
          Result := ShowModal;
        finally
          Free;
        end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]