創建一個簡單的專家

时间:2010-01-30 08:19:43  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:ffc0" border="1">typeTSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)publicfunction GetIDString: string;function GetName: string;function GetState: TWizardState;procedure Execute;function GetMenuText: string;end;procedure Register;implement...
  正文:這個單元可以編譯到一個包中,之後它可以出現在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;

創建一個簡單的專家》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12616.html


关键字:
上一篇:Delphi的Hint

关于《創建一個簡單的專家》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td