请问怎么把MESSAGEBOX改成中文显示啊?

[zheker]

messagedlg('sentences',mtconfirmation,[mbyes,mbno],0);
这时弹出的MESSAGEBOX命令按钮是YES和NO
怎么能把它们改成确定和取消啊.

[huojiehai]

if Application.MessageBox(
'真的要中文的?','信息',
MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then

[pankun]

呵呵。

[jinjiajun]

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox( self.Handle,'sss','aaaa',MB_OKCANCEL)
end;

//这个就是中文的了

[ronaldli]

MessageDlg本来就不能中文显示，想要中文你只能选择MessageBox

[older]

messageBox(handle,'显是中文','信息',MB_OKCANCEL) //api
application.MessageBox('This should be on top.','Look', mb_OK);

[Cappuccino]

MessageBox(Handle, '这里是要显示的信息', '这里是标题栏的信息', MB_OKCANCEL + MB_ICONQUESTION)本来就可以显示中文

做后的一个参数是定义图标类型和按钮的类型的``
自己可以查帮助

如果之需要一个确定按钮，其他的什么都不要~~就直接给最后一个参数赋0。

[renzy205]

Delphi6\Source\Vcl\consts.pas 找到以下，改成中文，编译成dcu,放到Delphi6\lib下，就可以了
SOKButton = 'OK';
SCancelButton = 'Cancel';
SYesButton = '&Yes';
SNoButton = '&No';
SHelpButton = '&Help';
SCloseButton = '&Close';
SIgnoreButton = '&Ignore';
SRetryButton = '&Retry';
SAbortButton = 'Abort';
SAllButton = '&All';

[renzy205]

好象是这个。我把delphi6(sp2)的中文信息很多汉化了,你要可以email
SMsgDlgWarning = '警告';
SMsgDlgError = '错误';
SMsgDlgInformation = '信息';
SMsgDlgConfirm = '确认';
SMsgDlgYes = '是[&Y]';
SMsgDlgNo = '否[&N]';
SMsgDlgOK = '确定';
SMsgDlgCancel = '取消';
SMsgDlgHelp = '帮助[&H]';
SMsgDlgHelpNone = '没有可用的帮助';
SMsgDlgHelpHelp = '帮助';
SMsgDlgAbort = '中断[&A]';
SMsgDlgRetry = '重试[&R]';
SMsgDlgIgnore = '忽略[&I]';
SMsgDlgAll = '全部[&A]';
SMsgDlgNoToAll = '全部不是[&o]';
SMsgDlgYesToAll = '全是[&A]';

[zheker]

楼上的发份给我把！
谢谢了
[e-mail]