怎样显示一条消息

Question

不知道你想显示什么消息，如果只是一条提示信息的话，引用Dialogs单元，然后就可以使用showmessage()方法了

Answer 1

显示消息有很多过程：
Procedure ShowMessage(const Msg:string);
Procedure ShowMessageFmt(const Msg:string;Params:array of const);
Procedure MessageDlg(const Msg:string;AType:TMsgDlgType; AButtons:TMsgDlgButtons;HelpCtx:Longint)：Word;
等；
不知道你是时用哪种？

Answer 2

APPLICATION.MESSAGEBOX(const Text, Caption: PChar; Flags: Longint): Integer
给个例子：
if Application.MessageBox('确定要退出吗？','提示',MB_OKCANCEL) <> IDOK then
Close
Else Exit;