[QLang]-使用 QLang 汉化 VCL 自带的 ShowMessage 对话框

Delphi 自带的 ShowMessage 是 VCL 自带的对话框，但其一个大大的 OK 按钮，与中文的程序很大的不协调，怎么解决这个问题，我们以前给出过一些解决办法，但总是过于麻烦。今天，QDAC.QLang 为您轻松解决这个问题。

1、在程序中引用 QLang 单元。

uses qlang;

2、在程序启动时，我们用下面的一句代码要求 “OK” 翻译为 “确定” 。

LangManager.ResValue['OK']:='确定';

现在一切就 OK了，我们现在来测试下，在窗体上放个按钮，在其单击事件中编写如下代码：

ShowMessage('哈哈，OK 变 确定 了！');

现在我们编译运行程序，看看运行效果：

同样的方式，我们可以在程序中实现直接将其它的Delphi内置的对话框中的英文换成中文，而不需要修改系统的任何单元。用QLang，就是这么简单~~~

附全部代码:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses qlang;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('哈哈，OK 变 确定 了！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LangManager.ResValue['OK']:='确定';
end;

end.

登录