Class TRplWizData (unit RplWizExpt)

Inherits from

TDataModule

Constructors



Functions

procedure ModuleNotifier1EditorSelected(Sender: TObject; ModuleInterface: TIModuleInterface);

The user is editing or viewing a source file.

procedure ModuleNotifier1FormSelected(Sender: TObject; ModuleInterface: TIModuleInterface);

The user is editing or viewing a form, so enable the menu item.

procedure RplWizDataCreate(Sender: TObject);

Create the menu item.

procedure RplWizDataDestroy(Sender: TObject);

Destroy the menu item; tell the expert that the data module has been freed.

procedure MenuItemClick(Sender: TIMenuItemIntf);

When the user clicks the menu item, run the expert.

Properties

Events

Variables

ModuleNotifier1 : TModuleNotifier;


ProjectNotifier1 : TProjectNotifier;


Expert : TRplWizard;

Private declarations

MenuItem : TIMenuItemIntf;



Constructors


Functions


procedure ModuleNotifier1EditorSelected(Sender: TObject; ModuleInterface: TIModuleInterface);

The user is editing or viewing a source file. Check whether that file has a form. Enable the menu item if so, otherwise disable the menu item.


procedure ModuleNotifier1FormSelected(Sender: TObject; ModuleInterface: TIModuleInterface);

The user is editing or viewing a form, so enable the menu item.


procedure RplWizDataCreate(Sender: TObject);

Create the menu item.


procedure RplWizDataDestroy(Sender: TObject);

Destroy the menu item; tell the expert that the data module has been freed.


procedure MenuItemClick(Sender: TIMenuItemIntf);

When the user clicks the menu item, run the expert.


Properties


Events


Variables


ModuleNotifier1 : TModuleNotifier;


ProjectNotifier1 : TProjectNotifier;


Expert : TRplWizard;

Private declarations


MenuItem : TIMenuItemIntf;