Einzelnen Beitrag anzeigen

r29d43

Registriert seit: 18. Jan 2007
289 Beiträge
 
Delphi 10.4 Sydney
 
#17

AW: Gibt es eine Schnittstelle zur IDE?

  Alt 6. Mai 2020, 09:12
Ja, gefunden, danke. Leider aber ist im Hilfe-Menue von Delphi diese Zeile 'Mein erster Experte: HelloWorld' nicht aufgetaucht. Auch nach einem Restart Delphis nicht. Woran könnte das event. noch liegen?

Hier der Programm-Code der allerdings seinerzeit für Delphi6 geschriebe wurde:

Delphi-Quellcode:
unit HelloWorldExpert_Unit;

interface

uses ToolsAPI, Vcl.Dialogs;

type
  THelloWorldExpert = class(TNotifierObject, IOTAWizard, IOTAMenuWizard)
    function GetIdString: string;
    function GetName: string;
    function GetState: TWizardState;
    function GetMenuText: string;

    procedure Execute;
  end;

implementation


function THelloWorldExpert.GetIDString: string;
Begin
 result:='BlackBird.HelloWorld';
end;

function THelloWorldExpert.GetName: string;
Begin
 result:='Hello-World Experte';
end;

function THelloWorldExpert.GetState: TWizardState;
Begin
 result:=[wsEnabled];
end;

function THelloWorldExpert.GetMenuText: string;
Begin
 result:='Mein erster Experte: HelloWorld';
end;

procedure THelloWorldExpert.Execute;
Begin
 ShowMessage('Hello World');
end;

procedure Register;
Begin
 RegisterPackageWizard(THelloWorldExpert.Create as IOTAWizard);
end;

end.
  Mit Zitat antworten Zitat