Create a Simple Delphi Expert (Create a simple Delphi expert)

{

Diese Unit Kann in Ein Package Compiliert Werden Und Danach IM

Delphi menu unter Hilfe.

}

{

This Unit Can Be Compiled Into a package and willim 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

.