Question

如何用delphi编一个点击按钮后弹出的对话框，比如welcom等

Answer 1

你好！
1、ShowMessage('Welcome');
//这个是弹出一个提示框
2、
if
MessageDlg('你确定要退出吗？',mtInformation,[mbyes,mbno],0)
=
mryes
then
ShowMessage('确定退出')
else
ShowMessage('不退出');
//这个是询问框
打字不易，采纳哦！

Answer 2

showmessage或者
if
Application.MessageBox('你确定要取消吗？','提示',MB_YESNO
+
MB_ICONQUESTION)
=
IdYes
then
begin
end;
这两种都可以，