Changing MessageDlg font

How to change MessageDLG

Contributor: DAVID WELSH





> 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;

 

Share this article!

Follow us!

Find more helpful articles: