Create a simple Delphi Expert(创建一个简单的Delphi专家)
来源:互联网 发布:adapter数据更新 编辑:程序博客网 时间:2024/04/30 08:16
{
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.
- Create a simple Delphi Expert(创建一个简单的Delphi专家)
- 自己动手编写Delphi Expert
- Delphi 对象的创建(create)与释放(free/destory)
- Delphi 对象的创建(create)与释放(free/destory)
- 一个简单的DELPHI程序注册码设计
- 一个简单的DELPHI程序注册码设计 .
- 使用Restlet创建一个简单的web service(Creating a simple web service with Restlet)
- Building a Simple User Interface(创建一个简单的用户界面)
- delphi 创建一个纯文本文件
- 德尔菲法 Delphi 专家判断
- Delphi 专家包Wizard
- 在Delphi中创建的简单的Excel报表类
- delphi中对象的create和free- -
- delphi中对象的create和free
- delphi中对象的create和free
- Delphi 最简单的专家包 示例 (一) 继承自TNotifierObject
- Delphi 最简单的专家包 示例( 二) 继承自IOTAMenuWizard
- delphi中用api创建多线程的简单例子
- asp.net常用函数
- 试了一天,trackback 终于成功了(同时发现,csdn 的帮助系统 和 blog 是最烂的帮助和最烂的 blog 之一)
- Struts入门经验
- qq为什么能收费,为什么不用免费的msn
- Create a menu item into the Delphi menu
- Create a simple Delphi Expert(创建一个简单的Delphi专家)
- 平时要注意收集发票
- Book Review of Dynamics of Software Development--Remember the triangle:features, resources, times
- 发表是最好的记忆
- linux 0.11源代码完全中文注释
- 智 能 微 尘
- db2数据插入出现错误!!
- M2M技术的基本框架
- 如何设计一个成功网站