怎么修改提示框的标题栏？

Question

用showmessage()只能添加提示信息，但是标题栏不知道怎么修改？
是不是还有别的message语句，赐教。

Answer 1

application.messagebox('？？？？？？','提示',mb_ok);

Answer 2

//自定义MSGBOX函数  -----------------------------
  function MsgBox(const Msg,Title:string;Flag:LongInt):integer; 
  begin
    result:=application.MessageBox(Pchar(Msg),Pchar(Title),Flag);
  end;

Answer 3

showmessage()比messagebox占资源
用：application.messagebox('提示信息','标题栏',mb_ok);

Answer 4

最好用Windows类下的MessageBox()，要什么有什么，而且占用系统资源也不多，ShowMessage()使得exe容量增大比MessageBox()多，因此ShowMessage()只作调试用。

Answer 5

谢谢，由于小弟刚转型delphi，所以还请各位多多指教！