=Title>這個單元可以編譯到
個包中
的後它可以出現在Delphi
幫助菜單中
注:在Interface
uses 語句中加入ToolsApi.type
TSDCSimpleExpert =
(TNot
ierObject, IOTAMenuWizard, IOTAWizard)public
function GetIDString:
;function GetName:
;function GetState: TWizardState;
procedure Execute;
function GetMenuText:
;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:
;begin
{唯
\"專家\"標識符}Result := \'SwissDelphiCenter.SimpleExpert\';
end;
function TSDCSimpleExpert.GetMenuText:
;begin
{菜單項
標題}Result := \'SwissDelphiCenter Simple Expert\';
end;
function TSDCSimpleExpert.GetName:
;begin
{“專家”
名字}Result := \'SwissDelphiCenter Simple Expert\';
end;
function TSDCSimpleExpert.GetState: TWizardState;
begin
Result := [wsEnabled];
end;
最新评论