Create a simple Delphi expert (create a simple Delphi expert)

{
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;

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.