創建一個簡單的專家

页面导航:首页 > 软件编程 > Delphi > 創建一個簡單的專家

創建一個簡單的專家

来源: 作者: 时间:2016-02-05 11:47 【

這個單元可以編譯到一個包中,之後它可以出現在Delphi的幫助菜單中。注:在Interface的uses 語句中加入ToolsApi.typeTSDCSimpleExpert=class(TNotifierObject,IOTAMenuWiz
 

這個單元可以編譯到一個包中,之後它可以出現在Delphi的幫助菜單中。

注:在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
  
RegisterPackageWizard(TSDCSimpleExpert.Create);注冊"專家}
end;

{ TSDCSimpleExpert }"}

procedure TSDCSimpleExpert.Execute;
begin
  {當單擊菜單項時,執行這段代碼}
  
ShowMessage(Hello SwissDelphiCenter Simple Expert.);
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {唯一"專家"標識符}
  
Result := SwissDelphiCenter.SimpleExpert;
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {菜單項的標題}
  
Result := SwissDelphiCenter Simple Expert;
end;

function TSDCSimpleExpert.GetName: string;
begin
  {“專家”的名字}
  
Result := SwissDelphiCenter Simple Expert;
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <