|
|
 |
专题栏目 |
 |
|
相关文章 |
|
|
|
|
|
 |
Create a simple Delphi Expert(创建一个简单的Delphi专家) |
★★★ |
|
| Create a simple Delphi Expert(创建一个简单的Delphi专家) |
|
作者：佚名 文章来源：SafeF8 点击数： 更新时间：2006-7-27  |
|
{
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.
|
|
| 文章录入：mintao 责任编辑：mintao |
|
|
上一篇文章： XPath Tutorial-from w3schools.com
下一篇文章： B2MailSch for becky! Windows 9x/ME/NT/2K/XP |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
