Проверить активность команды Copy в TWebBrowser

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

procedure TForm1.ButtonIsCopyEnabledClick(Sender: TObject); 
begin 
  if Webbrowser1.OleObject.Document.queryCommandEnabled('Copy') then 
    ShowMessage('Copy is active/ Copy ist aktiv'); 
end;

Перевод:

Код, который я предоставил, проверяет,是否 включен командный пункт "Copy" в компоненте TWebBrowser, конкретно в обработчике события TForm1.ButtonIsCopyEnabledClick.

Разбивка кода:

1. Если-стиatement проверяет, возвращает ли метод queryCommandEnabled значение True для строки команды 'Copy'.
2. Если условие истинно, отображается сообщение с текстом "Copy is active/ Copy ist aktiv" с помощью функции ShowMessage.

Вот альтернативное решение, которое предоставляет более подробную информацию о состоянии команды "Copy":

procedure TForm1.ButtonIsCopyEnabledClick(Sender: TObject);
begin
  if Webbrowser1.OleObject.Document.queryCommandEnabled('Copy') then
    ShowMessage('Copy is active/ Copy ist aktiv')
  else
    ShowMessage('Copy is disabled/ Copy ist deaktiviert');
end;

Этот код проверяет ту же условие, что и раньше, но также отображает сообщение для случая, когда командный пункт "Copy" отключен. Замечание: Метод queryCommandEnabled возвращает True, если команда доступна и может быть выполнена, и False в противном случае. В этом случае он проверяет конкретно команду "Copy".

В статье описывается проверка активности команды копирования в компоненте TWebBrowser с помощью процедуры TForm1.ButtonIsCopyEnabledClick.

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

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