delexw.pas

Delphi高级开发指南是开发程序的好帮手

unit DelExW;

interface

uses
  SysUtils, Classes, Controls, ExptIntf, Windows;

type
  TDelphiExposedWizard = class (TIExpert)
  public
    function GetStyle: TExpertStyle; override;
    function GetName: string; override;
    function GetAuthor: string; override;
    function GetComment: string; override;
    function GetPage: string; override;
    function GetGlyph: HICON; override;
    function GetState: TExpertState; override;
    function GetIDString: string; override;
    function GetMenuText: string; override;
    procedure Execute; override;
  end;

procedure Register;

implementation

uses
  Forms, DewForm;

// "standard" project expert

function TDelphiExposedWizard.GetStyle: TExpertStyle;
begin
  // show up in the Help menu
  Result := esStandard;
end;

function TDelphiExposedWizard.GetName: String;
begin
  // official name
  Result := 'Delphi Exposed Wizard'
end;

function TDelphiExposedWizard.GetAuthor: string;
begin
  Result := 'Marco and Tim';
end;

function TDelphiExposedWizard.GetComment: String;
begin
  Result := 'TDelphiExposedWizard Expert';
end;

function TDelphiExposedWizard.GetPage: string;
begin
  Result := '';
end;

function TDelphiExposedWizard.GetGlyph: HICON;
begin
  Result := 0;
end;

function TDelphiExposedWizard.GetState: TExpertState;
begin
  Result := [esEnabled];
end;

function TDelphiExposedWizard.GetIDString: String;
begin
  // must be unique
  Result := 'DDHandbook.DelphiExposedWizard'
end;

function TDelphiExposedWizard.GetMenuText: String;
begin
  // the text of the menu item
  Result := '&Delphi Exposed Wizard'
end;

procedure TDelphiExposedWizard.Execute;
begin
  Application.Title := 'Delphi 3 (Exposed)';
  DelExForm := TDelExForm.Create (Application);
  try
    DelExForm.ShowModal;
  finally
    DelExForm.Free;
  end;
end;

procedure Register;
begin
  RegisterLibraryExpert(TDelphiExposedWizard.Create);
end;

end.