unfrmfindcomp.pas

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

unit unFrmFindComp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, unTActionReplacer, ExtCtrls, TypInfo;

const
  Def_IsVisualComp = 1;
  Def_IsNonVisualComp = 2;

type
  TfrmFindComponent = class(TForm)
    bbtOK: TBitBtn;
    bbtCancel: TBitBtn;
    lstComponents: TListBox;
    edCompName: TEdit;
    bvl1: TBevel;
    rbtShowAll: TRadioButton;
    rbtShowVisual: TRadioButton;
    bvl2: TBevel;
    rbtShowNonVisual: TRadioButton;
    procedure edCompNameChange(Sender: TObject);
    procedure edCompNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bbtOKClick(Sender: TObject);
    procedure lstComponentsClick(Sender: TObject);
    procedure lstComponentsDblClick(Sender: TObject);
    procedure edCompNameKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure rbtShowAllClick(Sender: TObject);
    procedure rbtShowVisualClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rbtShowNonVisualClick(Sender: TObject);
  private
    fCompList: TStrings;
    procedure SetCompList(const Value: TStrings);
    function GetSelectedIndex: Integer;
    function GetLastSelectedIndex: Integer;
    procedure SetSelectedIndex(const Value: Integer);
    { Private declarations }
  protected
    property SelectedIndex:Integer read GetSelectedIndex write SetSelectedIndex;
    
  public
    { Public declarations }

    //块