Question

delphi一个很简单的问题，本人菜鸟

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('输入错误，请重新输入','提示',mb_ok+64);
end;

end.

这句怎么错了，

我想点，button1，弹出一个对话框就行了，

Answer 1

直接ShowMessage('输入错误，请重新输入')就可以了。只要一个参数。

如果你需要更加丰富的控制，可以用MessageDlg函数。
MessageDlg的参数如下：
第一个参数是要显示的内容，
第二个参数是图标类型： mtConfirmation = 确认，问号图标, mtWarning = 警告，感叹号图标，mtError =错误，叉叉图标。
第三个参数表示显示在对话框上的按钮，是一个数组，例如[mbYes, mbNo]就显示Yes和No两个按钮。可选择的还有mbOk, mbCancel, mbYesToAll, mbIgnore, mbIgnoreAll等等。
最后一个参数表示上下文帮助的标识，通常是0.

函数的返回值是TModalResult类型的，跟第三个参数提供的按钮有关，例如用户点了YES按钮返回值就是mrYes

Answer 2

showmessage() 函数内部参数为一个，字符型的
如果用OK 可以用下面函数
if MessageDlg('输入错误，请重新输入“Yes”', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('输入错误，请重新输入');
end;

end.