开发环境为Delphi6.0企业版。1)在Windows XP 专业版SP2环境下,先按Button1下载网页后,再按Button2无法
启动中文输入法键盘布局3759015940。但如果不按Button1直接按Button2可以启动
中文输入法键盘布局3759015940。2)同样的代码在在Windows XP 家庭版SP1及Windows2000下则没有这个问题。哪位高手先进能告诉我问题出在哪,如何解决?代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.csdn.net/');
end;procedure TForm1.Button2Click(Sender: TObject);
var
hKB:HKL;
begin
ActivateKeyboardLayout(3759015940,KLF_ACTIVATE);
hKB:=GetKeyboardLayout(0);
showmessage(inttostr(hKB));
end;
启动中文输入法键盘布局3759015940。但如果不按Button1直接按Button2可以启动
中文输入法键盘布局3759015940。2)同样的代码在在Windows XP 家庭版SP1及Windows2000下则没有这个问题。哪位高手先进能告诉我问题出在哪,如何解决?代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.csdn.net/');
end;procedure TForm1.Button2Click(Sender: TObject);
var
hKB:HKL;
begin
ActivateKeyboardLayout(3759015940,KLF_ACTIVATE);
hKB:=GetKeyboardLayout(0);
showmessage(inttostr(hKB));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货