怎么使showmessage弹出的对话框中的"OK"按钮变成“确定”啊

Question

怎么使showmessage弹出的对话框中的"OK"按钮变成“确定”啊

Answer 1

showmessage是Delphi里的,想变为确定,那是不可能的,毕竟不是中国人开发的,
用API吧
MessageBox它在中文的Windows中显示中文,在日文Windows显示日文....

Answer 2

用messagebox吧，查帮助，有现成的例子
风格可以自己选择

Answer 3

MessageBox(Handle,'这里输入内容','这里是Caption',MB_OK+MB_ICON....
MB_OK
MB_YESNO
.............
ICONSTOP:停止
ICONINFORMATION:信息
ICONQUESTION;应该知道了吧

Answer 4

Application.MessageBox(Pchar('报错了!'), Pchar('提示信息'), MB_OK + MB_ICONWARNING);

Answer 5

你可以用一个Form2代替showmessage对话框:
Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
Unit2
procedure TForm2.FormShow(Sender: TObject);
begin
form1.Enabled:=false;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
form1.enabled:=true;
form2.Close;
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.enabled:=true;
end;