Как создать простейший эксперт

Delphi , Программа и Интерфейс , IDE и Компилятор

Автор: http://www.swissdelphicenter.ch

{
This unit can be compiled into a package and will
then appear in the delphi Help menu.
}
unit SDCSimpleExpert;

interface

uses ToolsApi;

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  public
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;
    procedure Execute;
    function GetMenuText: string;
  end;

procedure Register;

implementation

uses Dialogs;

procedure Register;
begin
  {register expert}
  RegisterPackageWizard(TSDCSimpleExpert.Create);
end;

{ TSDCSimpleExpert }

procedure TSDCSimpleExpert.Execute;
begin
  {code to execute when menu item is clicked}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {unique expert identifier}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {caption of menu item in help menu}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {name of the expert}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

end.

Это экспертный модуль Delphi, который создает простой экспертный компонент, который может быть зарегистрирован в меню Помощи Delphi.

Вот разбивка кода:

• Класс TSDCSimpleExpert наследуется от трех интерфейсов: TNotifierObject, IOTAMenuWizard и IOTAWizard. Эти интерфейсы обеспечивают функциональность для создания визард или эксперта, который может использоваться для помощи при выполнении задач в Delphi.
• Класс имеет несколько методов:
  • GetIDString: возвращает уникальный идентификатор эксперта, который равен "SwissDelphiCenter. SimpleExpert".
  • GetName: возвращает имя эксперта, которое также равно "SwissDelphiCenter Simple Expert".
  • GetMenuText: возвращает заголовок пункта меню в меню Помощи, который также равен "SwissDelphiCenter Simple Expert".
  • GetState: возвращает состояние визарда или эксперта, которое включено (wsEnabled).
  • Execute: этот метод вызывается, когда пользователь кликнет на пункт меню эксперта. В этом случае он просто отображает сообщение с текстом "Hello SwissDelphiCenter Simple Expert.".
• Процедура Register зарегистрирует эксперт в Delphi, создавая экземпляр класса TSDCSimpleExpert и регистрируя его как пакетный визард.

Чтобы использовать этот код, вам нужно скомпилировать его в пакет (например, используя IDE Delphi) и зарегистрировать пакет в вашей установке Delphi. Once registered, the expert will appear in the Help menu, where you can click on it to execute its functionality.

Альтернативное решение:

Вместо создания отдельного класса для каждого интерфейса вы можете использовать абстрактный базовый класс, который реализует все три интерфейса. Это позволит вам создать только один экземпляр эксперта и иметь его реализовать все требуемые методы. Вот пример:

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  protected
    procedure Execute; virtual;
    function GetIDString: string; virtual;
    function GetName: string; virtual;
    function GetMenuText: string; virtual;
    function GetState: TWizardState; virtual;
  end;

procedure TSDCSimpleExpert.Execute;
begin
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  Result := 'SwissDelphiCenter. SimpleExpert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

Таким образом, вам нужно создать только один экземпляр класса TSDCSimpleExpert и зарегистрировать его как пакетный визард. Остальная часть кода остается той же.

Статья описывает шаги по созданию простого эксперта в Delphi, который будет появляться в меню 'Справка' и выполнять определенный код при его вызове.

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

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

:: Главная :: IDE и Компилятор ::