Delphi - база знаний

       

Как создать простейший эксперт?


Как создать простейший эксперт?






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

Взято с сайта



Содержание раздела