Интеграция стандартных действий редактирования для TEmbeddedWB в Delphi

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

Если вы работаете с компонентом TEmbeddedWB в Delphi и хотите, чтобы стандартные действия редактирования, такие как копирование, вставка и выделение, работали с ним так же, как и с обычными текстовыми контролами, вам потребуется выполнить дополнительные настройки. В данном случае стандартные действия, такие как TEditCut, TEditCopy, TEditPaste и TEditSelectAll, не будут функционировать с TEmbeddedWB, поскольку этот компонент не является потомком TCustomEdit, для которого предназначены эти действия.

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

Для интеграции стандартных действий редактирования с TEmbeddedWB необходимо использовать события OnUpdate и OnExecute соответствующего действия. В этих событиях нужно переопределить стандартное поведение и вручную реализовать необходимую логику. Вот пример кода на Object Pascal, который позволяет действию TEditSelectAll работать с TEmbeddedWB:

procedure TForm1.EditSelectAll1Update(Sender: TObject);
begin
  EditSelectAll1.Enabled := (Screen.ActiveControl is TEmbeddedWB) or
    EditSelectAll1.HandlesTarget(ActiveControl);
end;

procedure TForm1.EditSelectAll1Execute(Sender: TObject);
begin
  if ActiveControl is TEmbeddedWB then
    TEmbeddedWB(ActiveControl).SelectAll
  else
    EditSelectAll1.ExecuteTarget(ActiveControl);
end;

Или же можно использовать события OnActionUpdate и OnActionExecute списка действий (ActionList) для централизации кастомного поведения:

procedure TForm1.ActionList1Update(Action: TBasicAction; var Handled: Boolean);
begin
  if Action is TEditAction then
  begin
    TCustomAction(Action).Enabled := (Screen.ActiveControl is TEmbeddedWB) or
      Action.HandlesTarget(Screen.ActiveControl);
    Handled := True;
  end;
end;

procedure TForm1.ActionList1Execute(Action: TBasicAction; var Handled: Boolean);
begin
  if (Action is TEditSelectAll) and (Screen.ActiveControl is TEmbeddedWB) then
  begin
    TEmbeddedWB(Screen.ActiveControl).SelectAll;
    Handled := True;
  end;
end;

Заключение

Используя приведенные выше методы, вы можете интегрировать стандартные действия редактирования для работы с TEmbeddedWB в вашем приложении на Delphi. Это позволит пользователям вашего приложения использовать знакомые операции копирования, вставки и выделения текста, не задумываясь о том, какой компонент используется под капотом.

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

В контексте обсуждается интеграция стандартных действий редактирования для компонента `TEmbeddedWB` в Delphi, чтобы обеспечить его совместимость с обычными текстовыми операциями, такими как копирование и выделение текста.

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

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

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