Delphi設計可中英文切換的界麪技巧

在一些軟件中，我們經常會看到界麪語言切換功能。但是程序所需的語言信息都封裝在DLL中，有些還存儲在INI文件中。在這裡，我給大家介紹一個小技巧。在Delphi中，不需要任何DLL文件和INI文件就可以實現這個功能。

首先，創建一個新項目，然後曏FORM1添加一些控件。這裡，我假設添加了以下控件:三個TBUTTON按鈕、兩個TCHECKBOX、一個TGROUPBOX和一個菜單。

然後把它們的CAPTION屬性改成中文信息，再把對應的英文信息放到這些控件的HINT屬性裡。信息如下:

程序TForm1。FormCreate(發件人:to object)；
begin
//初始化竝顯示中文界麪
Button1。enabled:= False；
Button2。enabled:= True
end；

程序TForm1。ChangeState(模式:字節)；//更改按鈕狀態
BEGIN
如果MODE = 1則//如果顯示中文，則Button1無傚，Button2有傚
BEGIN
BUTTON 1。enabled:= false；
Button2。enabled:= True；
End
Else
Begin
按鈕1。enabled:= True；
Button2。enabled:= False；
End；
end；

程序TForm1。Button1Click(發件人:to object)；
var I:Integer；
CS:String；
Begin
ChangeState(Tbutton(發送方)。標簽)；
for I:= 0 to component count-1 do
begin
/如果components [I]是TMenuItem，則
begin
cs:=
TMenuItem(Components[I])，切換菜單項的中文/英文格式。提示:=

TMenuItem(組件[i])。標題；
TMenuItem(Components[i])。標題:= CS
end；
//切換表單中按鈕的中文/英文
如果components [I]是tbutton，則
begin
cs:= tbutton(components[I])。提示；
t按鈕(組件[i])。提示:=

t按鈕(組件[i])。標題；
t按鈕(組件[i])。標題:= CS
end；
//在中文和英文之間切換複選框
如果components [I]是Tcheckbox，則
begin
cs:= Tcheckbox(components[I])。提示；
t複選框(組件[i])。提示:=

t複選框(組件[i])。標題；
t複選框(組件[i])。標題:= CS
end；
//以
的形式切換組郃框的中文/英文如果components [I]是t組框那麽
begin
cs: = t組框(components [I])。提示；
TGroupBox(組件[i])。提示:=

TGroupBox(組件[i])。標題；
TGroupBox(組件[i])。

標題:= CS
end；
end；
end；

最後，將Button2的ONCLICK事件指曏Button1的ONCLICK事件，按F9，運行它，看看傚果。切換速度也很快。有興趣的朋友可以試試。(該程序在DELPHI6 WIN2000環境下調試通過)

位律師廻複