德爾菲擊中輸入

Question

我該如何編輯一個編輯框，以便當我用光標仍然輸入時進入。然後它進入編輯框中的網頁瀏覽器中的那個網站？

任何人都可以幫助我嗎？

Answer 1

降一TEdit和窗體上的TWebBrowser，寫一個事件處理程序的編輯控件，即OnKeyDown：

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
begin 
    case Key of 
    VK_RETURN: 
     WebBrowser1.Navigate(Edit1.Text); 
    end; 
end; 

它弄得有一點更優雅，我建議

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
begin 
    case Key of 
    VK_RETURN: 
     begin 
     WebBrowser1.Navigate(Edit1.Text); 
     Edit1.SelectAll; 
     end; 
    end; 
end; 

更新

如果您希望URL在系統的默認瀏覽器中打開，而不是在TWebBrowser表單上，與

ShellExecute(0, nil, PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL); 

取代WebBrowser1.Navigate(Edit1.Text)已添加ShellAPI到您的使用條款後。但是現在請注意，您的有對協議是明確的。例如，bbc.co.uk將不起作用，但http://bbc.co.uk將會。

Answer 2

，您應該使用OnKeyPress事件而不是OnKeyDown事件：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if ord(Key) = VK_RETURN then 
    begin 
    Key := #0; // prevent beeping 
    WebBrowser1.Navigate(Edit1.Text); 
    end; 
end;