我做了2个MessageDialog 组件,
一个是确定更新,一个是提示信息,但是2个信息的显示都是兰色的,我想把一个换成黄色的,需要怎么操作,谢谢了!

解决方案 »

  1.   

     MessageBox(Self.Handle, 'Text', 'Caption', MB_ICONQUESTION+ MB_OK); //问号图标
     MessageBox(Self.Handle, 'Text', 'Caption', MB_ICONWARNING + MB_OK); //感叹号图标
      

  2.   

    为什么要写成组件了,Delphi有就有这个函数呀,使用很简单的
      

  3.   

    上面的 MB_ICONWARNING 就是
      

  4.   

    MB_ABORTRETRYIGNORE The message box contains three push buttons: Abort, Retry, and Ignore. 
    MB_OK The message box contains one push button: OK. This is the default. 
    MB_OKCANCEL The message box contains two push buttons: OK and Cancel. 
    MB_RETRYCANCEL The message box contains two push buttons: Retry and Cancel. 
    MB_YESNO The message box contains two push buttons: Yes and No. 
    MB_YESNOCANCEL The message box contains three push buttons: Yes, No, and Cancel. Specify one of the following flags to display an icon in the message box. Value Description 
    MB_ICONEXCLAMATION, MB_ICONWARNING An exclamation-point icon appears in the message box. 
    MB_ICONINFORMATION, MB_ICONASTERISK An icon consisting of a lowercase letter i in a circle appears in the message box. 
    MB_ICONQUESTION A question- icon appears in the message box. 
    MB_ICONSTOP, MB_ICONERROR, MB_ICONHAND A stop-sign icon appears in the message box.