Question

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

我用的是delphi7.0

Answer 1

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

Answer 2

在按钮的点击事件中
showmessage('welcom');

啥版本都一样。。。
都是利用showmessage命令。。。

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('111');
end;

end.

Answer 3

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

Answer 4

正如楼上几位所说，都行！