如何控制messagebox中文本的字体？

Question

如颜色、大小等等

Answer 1

Messagebox用的是系统字体
改变系统字体后调出，就可以实现

Answer 2

找出messagebox的源代码
加上label的字体及大小及可

Answer 3

procedure MessageBoxSetPasswordChar(var Msg: TMessage);
  message MessageBoxMessage;
procedure TForm1.MessageBoxSetPasswordChar(var Msg: TMessage);
begin
 with Screen.Forms[0] do
  begin
 font.Name:= '宋体';
    font.Size:=15;
  end;end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  PostMessage(Handle, MessageBoxMessage, 0, 0);
  I:=Messagedlg('Input Box', mtinformation,[mbok],0);
end;

Answer 4

还是自己写messagebox吧，公用的实在不好看，而且图标太少，