开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MdWizard.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

MdWizard.pas：源码内容
  1. unit MdWizard;
  3. interface
  5. uses
  6.   ExptIntf, Windows;
  8. type
  9.   TMdExpert = class (TIExpert)
  10.   public
  11.     function GetStyle: TExpertStyle; override;
  12.     function GetName: string; override;
  13.     function GetAuthor: string; override;
  14.     function GetComment: string; override;
  15.     function GetPage: string; override;
  16.     function GetGlyph: HICON; override;
  17.     function GetState: TExpertState; override;
  18.     function GetIDString: string; override;
  19.     function GetMenuText: string; override;
  20.     procedure Execute; override;
  21.   end;
  23. procedure Register;
  25. implementation
  27. uses
  28.   Dialogs, ToolIntf, SysUtils;
  30. function TMdExpert.GetStyle: TExpertStyle;
  31. begin
  32.   // show up in the Help menu
  33.   Result := esStandard;
  34. end;
  36. function TMdExpert.GetName: String;
  37. begin
  38.   // official name
  39.   Result := 'MDWizard'
  40. end;
  42. function TMdExpert.GetAuthor: string;
  43. begin
  44.   Result := 'Marco Cant