您现在正在浏览：首页 > 站长天地 > 站长学院 > 开发语言 > Delphi教程

创建一个简单的Delphi专家

时间:2010-02-03 12:46:32 来源:第二电脑网作者:第二电脑网

第二电脑网导读：nn 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(TNot...

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

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