정계훈 wrote:

> 안녕하세요...

>

> 제목 그대로 ShowMessage의 폰트 크기가 너무 작아서 조금 크게 하고 싶거든요.

>

> p.s 그리고 보여줄 내용이 많아서 ShowMessage 의 width 도 고정하고 싶어요...

>

> 알고 계심 알려주시와요...



ShowMessage()는 잘 모르고요

아래 소스는 MessageDlg()의 폰트를 바꾸는 예제입니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

FontDialog1: TFontDialog;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function CaptionMessageDlg(const aCaption: String; const Msg: string;

DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;

aFont: TFont; HelpCtx: Longint): Integer;

begin

with CreateMessageDialog(Msg, DlgType, Buttons) do

try

Caption := aCaption;

HelpContext := HelpCtx;

Font := aFont;

Result := ShowModal;

finally

Free;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

// FontDialog1.Font 는 나중에 ShowMessage의 폰트로 사용됨

FontDialog1.Execute;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

if CaptionMessageDlg('캡션', 'Yes 또는 No 중에서 하나를 선택하세요',

mtInformation, [mbYes, mbNo],

FontDialog1.Font, 0) = mrYes then

ShowMessage('Yes')

else

ShowMessage('No');



end;



end.