Открытие Веб-сайта из Текстового Поля по Enter в Delphi

Delphi , Интернет и Сети , Браузер

Вопрос, с которым столкнулись разработчики, работающие с Delphi, заключается в необходимости автоматизации процесса перехода на веб-сайт, введённого в текстовое поле, по нажатию клавиши Enter. Давайте рассмотрим, как можно реализовать такую функциональность.

Решение Проблемы

Для начала, разместим на форме компоненты TEdit и TWebBrowser. Затем, нам необходимо добавить обработчик события OnKeyDown для компонента TEdit, который будет реагировать на нажатие клавиши Enter.

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;

Данный код позволяет перейти на веб-сайт, введённый в текстовое поле Edit1, используя встроенный компонент TWebBrowser на форме.

Улучшенная Версия

Для более элегантного решения, предлагается выделить текст в поле Edit1 после перехода на сайт:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_RETURN:
      begin
        WebBrowser1.Navigate(Edit1.Text);
        Edit1.SelectAll; // Выделение всего текста в поле
        Edit1.SetFocus;  // Возвращение фокуса на поле ввода
      end;
  end;
end;

Открытие Сайта в Системном Браузере

Если нужно открыть сайт в системном браузере, а не в TWebBrowser, используем функцию ShellExecute:

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

Не забудьте добавить ShellAPI в раздел uses вашего проекта.

Использование События OnKeyPress

Также рассматривается вариант использования события OnKeyPress для предотвращения звукового сигнала при нажатии Enter:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ord(Key) = VK_RETURN then
  begin
    Key := #0; // Предотвращение звукового сигнала
    WebBrowser1.Navigate(Edit1.Text);
  end;
end;

Заключение

В этой статье мы рассмотрели, как настроить текстовое поле в Delphi для автоматического перехода на веб-сайт по нажатию клавиши Enter. Были приведены примеры кода на Object Pascal, который можно использовать в качестве основы для реализации подобной функциональности в ваших проектах на Delphi.

Создано по материалам из источника по ссылке.

Разработчики в Delphi стремятся автоматизировать переход на веб-сайт по Enter, используя TEdit и TWebBrowser.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::