如何修改showmessage提示对话框中的标题栏

解决方案 »

  1.   

    用MessageBox————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    MessageBox('This should be on top.', 'Look', [smbOK]);
      

  3.   

    Application.MessageBox('输入的不是正确的数值。','提示',mb_ok or MB_ICONINFORMATION);
      

  4.   

    MessageBox的图标MB_ICONINFORMATION);可以改变吗?
      

  5.   

    ShowMessage procedure
    Displays a message box with an OK button.UnitDialogsor QDialogsCategorydialog and message routinesDelphi syntax:procedure ShowMessage(const Msg: string);
    procedure ShowMessage(const Msg: WideString); overload;
    procedure ShowMessage(const Msg: WideString; Params: array of const); overload;C++ syntax:extern PACKAGE void __fastcall ShowMessage(const AnsiString Msg);
    extern PACKAGE void __fastcall ShowMessage(const WideString Msg);
    extern PACKAGE void __fastcall ShowMessage(const WideString Msg, const System::TVarRec * Params, const int Params_Size);DescriptionCall ShowMessage to display a simple message box with an OK button. The name of the application's executable file appears as the caption of the message box. Msg parameter is the message string that appears in the message box. Params lists the values to insert into Msg if the Msg string includes formatting specifiers. For more information about how messages are formatted, see Format Strings.Params_size is the index of the last value in Params (one less than the number of elements).Note: To display a message in a message box with other buttons, or with an icon, use the MessageDlg function.
    Note: If the user types Ctrl+C in the message box, the text of the message is copied to the clipboard.The following example uses an edit control and a button on a form. When the button is clicked, the current directory is searched for the filename specified in the edit control. A message box indicates whether the file is found.procedure TForm1.Button1Click(Sender: TObject);var
      FileToFind: string;
    begin
      FileToFind := FileSearch(Edit1.Text, GetCurrentDir);
      if FileToFind = '' then
        ShowMessage('Couldn''t find ' + Edit1.Text + '.')
      else
        ShowMessage('Found ' + FileToFind + '.');end;MESSAGEBOXMessageBox method (TApplication)
    Displays a specified message to the user.Delphi syntax:function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;C++ syntax:int __fastcall MessageBox(const char * Text, const char * Caption, int Flags = MB_OK);DescriptionUse MessageBox to display a generic dialog box a message and one or more buttons. Caption is the caption of the dialog box and is optional.MessageBox is an encapsulation of the Windows API MessageBox function. TApplication抯 encapsulation of MessageBox automatically supplies the missing window handle parameter needed for the Windows API function.The value of the Text parameter is the message, which can be longer than 255 characters if necessary. Long messages are automatically wrapped in the message box. The value of the Caption parameter is the caption that appears in the title bar of the dialog box. Captions can be longer than 255 characters, but don't wrap. A long caption results in a wide message box.The Flags parameter specifies what buttons appear on the message box and the behavior (possible return values). The following table lists the possible values. These values can be combined to obtain the desired effect.Value MeaningMB_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.MessageBox returns 0 if there isn抰 enough memory to create the message box. Otherwise it returns one of the following values:Value Numeric value MeaningIDOK 1 The user chose the OK button.
    IDCANCEL 2 The user chose the Cancel button.
    IDABORT 3 The user chose the Abort button.
    IDRETRY 4 The user chose the Retry button.
    IDIGNORE 5 The user chose the Ignore button.
    IDYES 6 The user chose the Yes button.
    IDNO 7 The user chose the No button.The following cross-platform code causes 搒tay on top?forms to allow a MessageBox to appear on top. After the message box is closed, the topmost forms are restored so that they continue to float to the top.Begin  with Application do
      begin
        NormalizeTopMosts;
        MessageBox('This should be on top.', 'Look', [smbOK]);
        RestoreTopMosts;
      end;
    end;DELPHI 帮助原文摘抄:)
      

  6.   

    消息图标MB_ICONINFORMATION
    警告    MB_ICONWARNING
    询问    MB_ICONQUESTION
    错误    MB_ICONERROR
      

  7.   

    messagedlg,看看delphi的帮助就高定了
      

  8.   

    Application.MessageBox('连接错误','警告',MB_OK+MB_ICONQUESTION);
      

  9.   

    你们的答案都错了,楼主问的是如何把showmessage的标题改了,
    把你的application.title改成自己的不就行了,
    是吧,楼主,把分给我吧