有什么办法去掉程序运行出错时的英文提示?(50分)

  • 主题发起人 主题发起人 心语
  • 开始时间 开始时间

心语

Unregistered / Unconfirmed
GUEST, unregistred user!
我在使用FTP控件时,已经定义了出错时的中文提示,可是控件自已的英文提示还是出现,请问怎样去掉?
 
用try()
catch(...)
{}
漢化一下控件的英文
 
不要出错情况下的默认提示。应该有属性设置的!
自己捕捉出错进行提示。
 
try
<程序段>
except
showmessage('出错了!')
end
 
谁能说详细一些?
 
打开你这个控件的源码
把里面的英文提示改成中文的

然后再打开你这个控件安装到的包
重新编译一下
 
在工程文件加入函数:(如)
procedure THotel_MAIN_Form.myExceptHandle(Sender : TObject; E : Exception);
var
DestStr:PChar;
begin
if Pos('valid date',E.Message) > 0 then //捕获非法日期
Application.messagebox(' 输入了非法日期!',pchar(application.title),mb_iconstop+mb_ok)
else if Pos('Invalid input value',E.Message) > 0 then //非法输入
Application.messagebox(' 非法输入!用ESC放弃操作 ',pchar(application.title),mb_iconstop+mb_ok)
end;
望有帮助!!
 
多人接受答案了。
 
后退
顶部