{ Diese Unit kann in ein Package compiliert werden und erscheint danach im Delphi Menu unter Hilfe. }
{ 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;
procedureRegister;
implementation
uses Dialogs;
procedureRegister; 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;