delphi运用webbroser连续focus后光标闪动

Question

procedure TForm1.btn1Click(Sender: TObject);
begin
wb1.Navigate('http://zc.qq.com/chs/index.html');
end;procedure TForm1.btn2Click(Sender: TObject);
begin
wb1.OleObject.document.getelementbyid('nick').focus;
wb1.OleObject.document.getelementbyid('nick').value:='昵称';
wb1.OleObject.document.getelementbyid('password').focus;;
wb1.OleObject.document.getelementbyid('password').value:='password';
wb1.OleObject.document.getelementbyid('password_again').focus;
wb1.OleObject.document.getelementbyid('password_again').value:='password';
wb1.OleObject.document.getelementbyid('year_value').focus;
wb1.OleObject.document.getelementbyid('year_value').value:='1989年';
wb1.OleObject.document.getelementbyid('month_value').focus;
wb1.OleObject.document.getelementbyid('month_value').value:='1月';
wb1.OleObject.document.getelementbyid('day_value').focus;
wb1.OleObject.document.getelementbyid('day_value').value:='9日';end;end.btn2点击运行后 光标在年 月 那个位置连续闪动 不停切换 年的value也变成了1992年 请高手解惑Delphiwebbroserfocusmshtml

Answer 1

额 不focus也不行啊 你试试就知道了

Answer 2

额个毛啊额？测试了，我这儿根本不用focus,ie6