исспользование "enter"

[blackstersl]

сново всем привет. Вчера я спрашивал как сделать так чтобы при нажатии "enter" combobox в браузере открывал страницу. мне предложили такой код :


procedure TForm3.ComboBox1Change(Sender: TObject);
begin
combobox1.Items.Add('http://');
end;

procedure TForm3.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
{открытие страницы}
end;


но он не работает. помогите разобратся. Заранее всем спасибо.

[russian-stalker]

 procedure TForm3.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin 
  if Key = VK_RETURN then
    WebBrowser1.Navigate(ComboBox1.Text);
end;

[blackstersl]

нет не работает, что делать?

[evg_m]

назначить обработчик события OnKeyDown для combobox1

[Terran]

blackstersl, можете сделать так:

Uses
 ShellApi,...
------------
Procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
If Key = 13 Then
ShellExecute(Application.Handle,'Open',PChar(ComboBox1.Text),Nil,Nil,SW_SHOWDEFAULT);
End;

Я проверял, этот код работает.