procedure TForm1.Button1Click(Sender: TObject);
begin
if application.MessageBox('','',mb_yesno or mb_iconquestion)=id_yes then
edit1.Text :='yes '
else edit1.Text :='no';
end;我是用上面的格式打开对话框的(还有其他),在中文系统中问怎样使其显示出中文(即:是 否)或英文(YES NO)
begin
if application.MessageBox('','',mb_yesno or mb_iconquestion)=id_yes then
edit1.Text :='yes '
else edit1.Text :='no';
end;我是用上面的格式打开对话框的(还有其他),在中文系统中问怎样使其显示出中文(即:是 否)或英文(YES NO)
如果是后者,你可以通过函数得到操作系统版本参数然后作出选择。
可以详细点吗?
当时这个问题: http://expert.csdn.net/Expert/topic/1609/1609934.xml?temp=.6210901也有人是象你这样回答的,我相信上面的问题可以解决这个问题也同样可以解决,只是我们没有找到方法,你这样说话也未免太...,算了不跟你说了你,反正你是解决不了的,还望其他高手指点!
你说的"要让显示的那个“对话框”是中文,那么Application.MessageBox本身就可以做到,在中文系统下就是中文的“是”,“否”,在英文下就使Yes,No",这只是一个基本问题,现在问题就是要在中文系统中显示Yes,No,如果象象你说得那样,只要换系统就是了,我还要问吗?还有你是不是刚出社会的?如果是,你要多点学做人。如果已经是老江湖了,我替你悲哀,哪有象你这样回答问题?
不是我捧三星人物,Kingron对我们Delphi程序员的贡献大家都有目共睹,当然,你开贴来谴责他也无可厚非,但是可能以后你就知道了,不多说了!
KingRon的贡献大家都是有目共睹的,不知道Borland有没有给Kingron Delphi专家的称号。那个Delphi猛料,不知道有多少Delphi的爱好者从中受益。