创建一个简单的Delphi专家

时间:2010-02-03 12:46:32  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:nn in ein Package compiliert werden und erscheint danach im Delphi Menu unter Hilfe. } { This unit can be compiled into a package and will then appear in the delphi Help menu. } unit SDCSimpleExpert; interface uses ToolsApi; type TSDCSimpleExpert = class(TNot...
  正文:Create a simple Delphi Expert(创建一个简单的Delphi专家)

{
Diese Unit kann in ein Package compiliert werden und erscheint danach im
Delphi Menu unter Hilfe.
}


{
This unit can be compiled into a package and will then appear in the delphi
Help menu.
}

unit SDCSimpleExpert;

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
  {register expert}
  RegisterPackageWizard(TSDCSimpleExpert.Create);
end;

{ TSDCSimpleExpert }

procedure TSDCSimpleExpert.Execute;
begin
  {code to execute when menu item is clicked}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {unique expert identifier}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {caption of menu item in help menu}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {name of the expert}
  Result := 'SwissDelphiCenter Simple Expert';
end;

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

end.
"创建一个简单的Delphi专家"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12751.html


关键字:

关于《创建一个简单的Delphi专家》文章的评论

站内搜索: 高级搜索

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