請教各位前輩~ 如何更改ShowMessage中訊息 的字體與大小...謝謝大家

No, I think there is no simple way to change the font unless you want to monitor window creation and chagne the font settings using the handle of the dialog. You should have a picture if your follow the code of ShowMessage found in Dialogs unit. An easier way is to create your own message dialog. 

改變 Message Dialog 字顏色為紅色 :

  with CreateMessageDialog('123',mtCustom, [mbOK]) do begin
    try
      font.Color := clred;
      Position := poScreenCenter;
      showmodal;
    finally
      free;
    end;
  end;

發表人 - Mickey 於 2003/04/29 15:28:57

Hi, 請參考這篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28515

希望你能用的上

procedure TForm1.Button1Click(Sender: TObject);
var
 from : TForm ;
 lab : TLabel ;
begin
  from := CreateMessageDialog('afsdfadsfasd',mtInformation, [mbOK]);
  with from do
  begin
    lab := TLabel(FindComponent('Message')) ;
    if lab <> nil then
    begin
      lab.Font.Color := clRed ; //你要的顏色在這裡設
    end ;
    from.ShowModal;
  end;
  from.Destroy ;
  FreeAndNil(from);    end;  

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

希望你能用的上

procedure TForm1.Button1Click(Sender: TObject);
var
 from : TForm ;
 lab : TLabel ;
begin
  from := CreateMessageDialog('afsdfadsfasd',mtInformation, [mbOK]);
  with from do
  begin
    lab := TLabel(FindComponent('Message')) ;
    if lab <> nil then
    begin
      lab.Font.Color := clRed ; //你要的顏色在這裡設
      lab.Font.Size := 12 ;   //字體
      lab.Font.Name := '標楷體';//字型
    end ;
    from.ShowModal;
  end;
  from.Destroy ;
  FreeAndNil(from);    end;  

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

To liorex: 當字體設置變大的時候，Message窗體的大小不會隨之改變，字體會超齣Message窗體的邊界。 ------ ian ------

------

------
ian
------