什么情况下才能弹出带工程名和图标的对话框？

[whzxk]

有哪几种可能？

[何鲁青]

?

[whzxk]

比方说我的工程名称为zm,使用showmessage('ddd')，就会弹出一个对话框，
这个对话框的标题是zm,但是没有图标

[hellolongbin]

dlephi有自带的带图标的对话框messagebox
procedure TForm1.Button1Click(Sender: TObject);
begin
application.MessageBox('a','b',mb_yesno+mb_iconquestion);
end;

其中的b可以写你的工程名
如果你想用自己的图标的话，那就不如自己写一个对话框了

[hellolongbin]

至于messagebox的用法可以看帮助，常用的图标就那几个,information啦，question啦之类的

[jinjazz]

1.procedure ShowMessage(const Msg: string);
单元：Dialogsor QDialogs
例子：showmessage('hello');
2.function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
单元：Forms
例子：MessageBox('This should be on top.', 'Look', mb_OK)
注：delphi的帮助文档提供的例子好像有误他的最后一个参数是[sbmok]
3.function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
单元：Dialogsor QDialogs
例子：if messagedlg('确定要退出吗？',mtwarnint,[mbyes,mbno],0)=mryes then close;
4.int MessageBox(

HWND hWnd, // handle of owner window
LPCTSTR lpText, // address of text in message box
LPCTSTR lpCaption, // address of title of message box
UINT uType // style of message box
);
单元：windows API
例子：windows.messagebox(0,'标题','警告错误',MB_ICONSTOP);

[sxy_9761]

不明白

[jinjazz]

1.procedure ShowMessage(const Msg: string);
单元：Dialogsor QDialogs
例子：showmessage('hello');
2.function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
单元：Forms
例子：MessageBox('This should be on top.', 'Look', mb_OK)
注：delphi的帮助文档提供的例子好像有误他的最后一个参数是[sbmok]
3.function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
单元：Dialogsor QDialogs
例子：if messagedlg('确定要退出吗？',mtwarnint,[mbyes,mbno],0)=mryes then close;
4.int MessageBox(

HWND hWnd, // handle of owner window
LPCTSTR lpText, // address of text in message box
LPCTSTR lpCaption, // address of title of message box
UINT uType // style of message box
);
单元：windows API
例子：windows.messagebox(0,'标题','警告错误',MB_ICONSTOP);

[cdsgajxlp]

新建一个Form，再ShowModal
该form的.caption为工程名

[whzxk]

是在标题旁边有徽标，不是客户区左边的那个红叉叉

[cdsgajxlp]

在messagebox上按住ctrl键，然后点鼠标左键
同样在Mb_OK上点，就会看到您想要的东西