Create a simple Delphi Expert(创建一个简单的Delphi专家)

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

相关文章
走近 WSH(Windows Scripting Hos 查杀耗CPU资源的Explored病毒快速干掉感染Internet Explorer的浅谈除不尽理还乱的Spyware间谍软 Microsoft AntiSpyware微软出品的 RedHat Linux环境下防火墙配置初 DNS 系统设定例--8.[Rev] 特殊网 DNS 系统设定例--9.[Rev] 特殊网 DNS 系统设定例--10.[Rev] 特殊网 DNS 系统设定例--14.[Rev] NCTU

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

Create a simple Delphi Expert(创建一个简单的Delphi专家)

作者：SafeF8 来源：csdn 点击：更新：2006-12-19

简介：

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