Create a simple Delphi Expert(创建一个简单的Delphi专家)
2005-01-24 21:52
555 查看
{
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.
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.
相关文章推荐
- Building a Simple User Interface(创建一个简单的用户界面)
- [转]Create a Lightbox with jQuery and CSS 创建一个简单的弹出层
- 2-1. Creating a Simple Model 使用图形界面设计器创建一个简单的模型
- Building a Simple User Interface(创建一个简单的用户界面)
- 使用Restlet创建一个简单的web service(Creating a simple web service with Restlet)
- 创建一个简单的device_create_file文件节点
- 14. 59. 2. 用抽象表创建一个简单table Creating simple JTable using AbstractTableModel
- 创建一个简单的WCF程序
- 使用Cocos Studio创建一个简单的工程
- 《Delphi 算法与数据结构》学习与感悟[6]: 一个简单的"单向链表"
- 今天学了一个简单的新技能Xcode6以后创建工程后没有.pch文件,所以来个技能--iOS开发
- eclipse+drools 6.5开发环境的搭建,以及创建一个简单的drools项目
- window创建进程的一个简单例子
- 一个简单的MDI示范程序(Delphi)
- 如何使用Core Text创建一个简单的杂志图书App
- 创建一个简单的tomcat项目(配置虚拟主机)
- C#游戏编程之创建一个简单的卷轴射击游戏
- 创建一个简单的WCF程序2——手动开启/关闭WCF服务与动态调用WCF地址
- 如何在Magento(麦进斗)中创建一个简单的“Hello World”模块?
- 在cengos中安装zabbix server/agent, 并创建一个简单demo