 |
|
 |
您现在的位置： 精品下载 >> 网络 >> 电脑课堂 >> 网络正文 |  用户登录  新用户注册 |
|
||||
| Create a simple Delphi Expert(创建一个简单的Delphi专家) | ||||
| 作者：佚名 网络来源：不详 点击数： 更新时间：2007-12-28 | ||||
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. |
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）