在程序运行期间怎样及时捕捉输入法的变化?

[bcbsoft]

我用以下语句取得当前所有的输入法放入ComboBox中,但是当删除或添加了某种输入法后不能及时捕捉输入法的变化(退出后再次运行才行),请问如何决?

ComboBox2->Items->Text=Screen->Imes->Text;

[wisenowa]

在ComboBox的OnClick事件中
取得当前所有的输入法放入ComboBox中

[票票飞扬]

用个Timer控件，定时刷新吧！
ComboBox.Items := Screen.Imes;

[bcbsoft]

不行,问题是 Screen.Imes没有变化呀

[wisenowa]

不是OnClick
是OnDropDown

[bcbsoft]

关键是Screen.Imes 没有被刷新，

所以OnClick、OnDropDown 都不作用

[wisenowa]

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
ComboBox1.Clear;
for i:=0 to Screen.Imes.Count-1 do
ComboBox1.Items.Add(Screen.Imes.Strings[i])
end;

[wisenowa]

什么意思?

[shxiaoxiao]

procedure TForm1.Button1Click(Sender: TObject);
Var
i:Integer;
begin
Memo1.clear;
for i:=0 to Screen.Imes.Count-1 do
Memo1.Lines.Add(Screen.Imes.Strings[i]);
Label1.Caption:=Screen.DefaultIme;
end;

[bcbsoft]

Screen.Imes 没有被刷新，取出来的还是原来那几种输入法,新添加的没有在里面,所以放入
ComboBox也就体现不出变化了

[wisenowa]

动态创建一个Screen对象
Try it.

[bcbsoft]

详细点：）

[wisenowa]

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i:integer;
SC:TScreen;
begin
SC:=TScreen.Create(self);
ComboBox1.Clear;
try
for i:=0 to SC.Imes.Count-1 do
ComboBox1.Items.Add(SC.Imes.Strings[i]);
finally
SC.Free;
end;
end;

我没试过，只是我的想法

[bcbsoft]

动态创建一个Screen对象,OKOKOKOK

Thank you!!!!!

[wisenowa]

no thx
给分吧