webbrowser的一个小问题

Question

我想用webbrowser控件画个浏览器,网址输入部分用combobox控件,我想實現按ENTER键,直接显示网页,按CRTL+ENTER键在输入的地址前后加上HTTP://WWW和.com,我用的代碼如下,但是實現還了http://www.XXX.com这部分,各位尊者大哥帮我改改看看哪儿有毛病!procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    begin
    webbrowser1.navigate(combobox1.text);
    end
  else
  if key=VK_CONTROL+vk_return then   //這兒 运行按下CRTL+ENTER後,不会实现
     begin
     combobox1.Text:='http://www.'+combobox1.Text+'.com';
     webbrowser1.navigate(combobox1.text);
     end;
end;
祝大家新年快乐,压岁钱多多!

Answer 1

if (ssCtrl in Shift)  and (Key = VK_Return)    then 
 begin  
     combobox1.Text:='http://www.'+combobox1.Text+'.com';
     webbrowser1.navigate(combobox1.text);
 end; 

Answer 2

procedure TfrmSetConn.EdtHostKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (key = VK_RETURN)   then
  begin
    showMessage('ok');
  end;end; 這是可翠的。

Answer 3

谢谢大哥,通过了!
但是if (ssCtrl in Shift) and (key = VK_RETURN)   then
这句不太理解呀,如果按SHIFT+ENTER应写为什么呢?