人生本是一个不断学习的过程，在这个过程中，图老师就是你们的好帮手，下面分享的創建一個簡單的"專家"懂设计的网友们快点来了解吧！
【 tulaoshi.com - 编程语言 】
這個單元可以編譯到一個包中，之後它可以出現在Delphi的幫助菜單中。
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）注：在Interface的uses 語句中加入ToolsApi.
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/） 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.tulaoshi.com/n/20160219/1626357.html
