|
|
|
創建一個簡單的"專家" |
|
|
作者：szhourj 来源：未知 加入时间：2005-8-31 人气：110 |
這個單元可以編譯到一個包中，之後它可以出現在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;
|
|
相关文章：
相关软件：
|
|
|
