Class TRplWizData (unit RplWizExpt) |
Inherits from
TDataModule
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.
ModuleNotifier1 : TModuleNotifier;
ProjectNotifier1 : TProjectNotifier;
Expert : TRplWizard;
Private declarations
MenuItem : TIMenuItemIntf;
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.
ModuleNotifier1 : TModuleNotifier;
ProjectNotifier1 : TProjectNotifier;
Expert : TRplWizard;
Private declarations
MenuItem : TIMenuItemIntf;