Исправление ошибки при удалении плагина для отключения клавиши Insert в Delphi 10.3 Rio

Delphi , Файловая система , DLL и PlugIns

Разработчики, работающие с IDE Delphi, иногда сталкиваются с необходимостью модификации стандартного поведения клавиш. В данном случае рассматривается проблема, связанная с плагином, который отключает клавишу Insert в Delphi 10.3 Rio. При удалении такого плагина возникает ошибка, когда нажимается эта клавиша. В статье будет рассмотрен подход к решению данной проблемы, а также приведен пример кода на Object Pascal.

Описание проблемы

Пользователи Delphi иногда ищут способы отключения определенных клавиш в IDE, чтобы улучшить рабочий процесс или предотвратить случайное выполнение некоторых действий. В частности, была разработана плагина для отключения клавиши Insert, которая может быть неактуальной для некоторых разработчиков. Однако после удаления плагина возникает исключение, что создает неудобства для пользователя.

Пример кода плагина

unit MyBinding;
interface
procedure Register;
end
implementation
uses Windows, Classes, SysUtils, ToolsAPI, Vcl.Menus;
type
  TLearnDelphiKeyBinding = class(TNotifierObject, IOTAKeyboardBinding)
  private
    procedure DoNothing(const Context: IOTAKeyContext; KeyCode: TShortCut; var BindingResult: TKeyBindingResult);
  public
    function GetBindingType: TBindingType;
    function GetDisplayName: string;
    function GetName: string;
    procedure BindKeyboard(const BindingServices: IOTAKeyBindingServices);
  end;
var
  LearnDelphiKeyBindingIndex: integer = 0;
procedure Register;
begin
  LearnDelphiKeyBindingIndex := (BorlandIDEServices as IOTAKeyBoardServices).AddKeyboardBinding(TLearnDelphiKeyBinding.Create);
end;
procedure TLearnDelphiKeyBinding.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
begin
  BindingServices.AddKeyBinding([ShortCut(VK_INSERT, [])], DoNothing, nil);
end;
function TLearnDelphiKeyBinding.GetBindingType: TBindingType;
begin
  Result := btPartial;
end;
function TLearnDelphiKeyBinding.GetDisplayName: string;
begin
  Result := 'Disable Insert';
end;
function TLearnDelphiKeyBinding.GetName: string;
begin
  Result := 'LearnDelphi.DisableInsert';
end;
procedure TLearnDelphiKeyBinding.DoNothing(const Context: IOTAKeyContext; KeyCode: TShortCut; var BindingResult: TKeyBindingResult);
begin
  BindingResult := krHandled;
end;
initialization
finalization
  if LearnDelphiKeyBindingIndex > 0 then
    (BorlandIDEServices as IOTAKeyboardServices).RemoveKeyboardBinding(LearnDelphiKeyBindingIndex);
end.

Подтвержденный ответ

Причиной ошибки является неправильное удаление плагина при закрытии IDE. Для корректного удаления плагина необходимо в секции finalization вызвать метод RemoveKeyboardBinding, передав в него индекс, который был возвращен при добавлении плагина.

initialization
finalization
  if LearnDelphiKeyBindingIndex > 0 then
    (BorlandIDEServices as IOTAKeyboardServices).RemoveKeyboardBinding(LearnDelphiKeyBindingIndex);
end.

Альтернативный ответ

Для более глубокого понимания работы плагинов, связанных с клавиатурными связями, можно обратиться к главе 4: "Key Bindings and Debugging Tools" в блоге David Hoyle, где приведен пример мастера создания клавиатурных связей, использующего OpenTools API.

Заключение

Ошибка при удалении плагина для отключения клавиши Insert в Delphi 10.3 Rio связана с неправильным обращением с механизмом плагинов IDE. После внесения корректировок в код плагина, описанных в разделе "Подтвержденный ответ", проблема должна быть устранена, и плагин будет корректно удаляться без возникновения ошибок.

Приведенные примеры кода на Object Pascal демонстрируют основной подход к разработке плагинов для IDE Delphi, включая необходимость корректного управления ресурсами, выделенными при установке плагина.

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

Разработчики столкнулись с проблемой ошибки при удалении плагина, предназначенного для отключения клавиши Insert в Delphi 10.3 Rio, и ищут решение, связанное с корректным освобождением ресурсов в IDE.

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

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

:: Главная :: DLL и PlugIns ::