Anscheinend geht das Tutorial mit Delphi 2005
PE nicht.
Hab mich weiter umgesehen und folgende Source gefunden (siehe Anhang).
Diese funktioniert, nur wie kann man nun die Position wählen?
Menü und Punkt, wo der Expert dagestellt werden soll ...
Delphi-Quellcode:
{
Diese Unit kann in ein Package compiliert werden und erscheint danach im
Delphi Menu unter Hilfe.
}
unit SimpleExpert;
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.