[Blackster]

сново привет. как сделать так чтобы можно было через Соmbobox открыть
страницу в NЕТе, при нажатии еnter, мне посоветовали так но у меня ничего не получается:




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

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


что делать? можно ли как то по другому? заранее всем спасибо.

[Drozh]

В папке Demos Delphi описано так

Код:

procedure TForm1.FindAddress;
var
  Flags: OLEVariant;
begin
  Flags := 0;
  WebBrowser1.Navigate(WideString(ComboBox1.Text), Flags, Flags, Flags, Flags);
end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_Return then
  FindAddress;
end;

[Кодер]

Код:

USES ShellAPi;
...
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = #13 then
             ShellExecute(Form1.Handle, 
                            nil, 
                            combobox1.text, 
                            nil, 
                            nil, 
                            SW_SHOWNORMAL); 
end;