在Form建立的事件中添加代码,将目录下所有的语言文件名加入选择列表框中。
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddStrings(SearchLanguagePack);
end;
程序的重点在如何切换语言,在ComboBox1的OnChange事件中进行切换 *** 作。
这里我写了SetActiveLanguage过程用于实现这一 *** 作。
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)