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

怎么使showmessage弹出的对话框中的"OK"按钮变成“确定”啊 问题点数：20、回复次数：7Top

1 楼lwluser（lwluser）回复于 2003-08-02 22:37:37 得分 5

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

2 楼lEFTmOON（我的小站(www.ismyway.com)）回复于 2003-08-02 22:41:09 得分 5

messageboxTop

3 楼karach（卡车）回复于 2003-08-02 22:41:19 得分 5

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

4 楼ljmanage（过客）回复于 2003-08-02 22:42:13 得分 5

messagebox  
  Top

5 楼lwluser（lwluser）回复于 2003-08-02 22:45:11 得分 0

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

6 楼foreveryday007（有無數種方法可以浪費一天的時間…但是…）回复于 2003-08-02 22:45:40 得分 0

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

7 楼liaoyun110（jxs）回复于 2003-08-02 22:55:35 得分 0

你可以用一个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;Top

相关问题

• beginform
• 对话框
• showmessage
• 确定
• tobject
• messagebox
• ok
• mb
• procedure tform
• sender

• 帖主：ngyxh
• lwluser
• lEFTmOON
• karach
• ljmanage

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载