unfrmusesunit.pas

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

unit unFrmUsesUnit;

interface

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

const
  Def_Separator = '________________________________________________________________________________________________________________';

type
  TfrmUsesUnit = class(TForm)
    bbtOK: TBitBtn;
    bbtCancel: TBitBtn;
    lstUnits: TListBox;
    edUnitName: TEdit;
    btOldUsesUnit: TButton;
    bvl1: TBevel;
    rbtShowAllUnits: TRadioButton;
    rbtShowFormUnits: TRadioButton;
    bvl2: TBevel;
    procedure edUnitNameChange(Sender: TObject);
    procedure edUnitNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bbtOKClick(Sender: TObject);
    procedure lstUnitsClick(Sender: TObject);
    procedure lstUnitsDblClick(Sender: TObject);
    procedure edUnitNameKeyPress(Sender: TObject; var Key: Char);
    procedure btOldUsesUnitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure rbtShowAllUnitsClick(Sender: TObject);
    procedure rbtShowFormUnitsClick(Sender: TObject);
  private
    FUsesList: TStrings;
    FOldExecute: TNotifyEvent;
    procedure SetUsesList(const Value: TStrings);
    function GetSelectedIndex: Integer;
    function GetLastSelectedIndex: Integer;
    procedure SetSelectedIndex(const Value: Integer);
    procedure SetOldExecute(const Value: TNotifyEvent);
    { Private declarations }
  protected
    property SelectedIndex:Integer read GetSelectedIndex write SetSelectedIndex;
    
  public
    { Public declarations }

    //块