untfindcompwizard.pas

简单好用的Delphi专家一个简单好用的Delphi专家 安装后Delphi将增加两个小功能: 1.在窗体/DataModule上可以按Ctrl-F进行查找定位组件, 在一个窗体/DataM

unit unTFindCompWizard;

interface

uses ToolsAPI, unTBaseExpert, Forms, Controls, Variants, unTActionReplacer;

type
  TFindCompWizard = class(TBaseExpert)
    private
      actFindReplacer: TActionReplacer;
    public
      function GetIDString(): String; override;
      function GetName(): String; override;
      function GetState(): TWizardState; override;
      procedure Execute(); override;
      { IOTAMenuWizard }
      function GetMenuText(): String; override;

    public
      constructor Create;
      destructor Destroy; override;

      //琩тㄆン
      procedure OnFindExecute(Sender: TObject); 
  end;


  procedure Register;

implementation

uses unToolsAPI, unFrmFindComp, SysUtils;


procedure Register;
begin
  ToolsAPI.RegisterPackageWizard( TFindCompWizard.Create() );
end;

{ TFindCompWizard }

constructor TFindCompWizard.Create;
begin
  inherited;

  TRY
    actFindReplacer:= TActionReplacer.Create('SearchFindCommand', OnFindExecute);
  EXCEPT
    actFindReplacer:= nil;
  END;
end;

destructor TFindCompWizard.Destroy;
begin
  if actFindReplacer<>nil then
    actFindReplacer.Free;

  inherited;
end;

procedure TFindCompWizard.Execute;
var
  iFormEditor: IOTAFormEditor;
  i: Integer;
  sName, sCaption: String;
  bSelFirst: Boolean;
begin
  inherited;
  //陪ボ琩т