請問如何讓 Messagedlg 或 ShowMessage 的字改變成自己想要的顏色 及字體的大小..謝謝.. I like DeBug

------
I like DeBug

直接不可能但可自改以其他 function 參考 如何更改ShowMessage的字體 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29646

http://www.bsdg.org/swag/DELPHI/0295.PAS.html     > 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;

--- 每個人都是一本書