摘要: { For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin SetActiveLanguage(ComboBox1.Text);end;procedure TForm1.FormCreate(Sender: TObject);begin ComboBox1.Items.AddStrings(SearchLanguagePack);end;}unit uLanguage;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, F 阅读全文
posted @ 2011-01-02 21:14 delphi中间件 阅读(351) 评论(0) 推荐(0) 编辑