findlistitem.pas

来自「上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复」· PAS 代码 · 共 75 行

unit FindListItem;

interface

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

type
  TdlgFindListItem = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edContent: TEdit;
    cbFindColumn: TComboBox;
    cbMatching: TComboBox;
    btnOk: TButton;
    Button2: TButton;
    procedure edContentKeyPress(Sender: TObject; var Key: Char);
    procedure edContentChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlgFindListItem: TdlgFindListItem;

implementation

{$R *.dfm}

procedure TdlgFindListItem.edContentKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
  btnOk.Click;
end;

procedure TdlgFindListItem.edContentChange(Sender: TObject);
begin
 btnOk.Enabled := (edContent.Text<>'') and (cbFindColumn.ItemIndex<>-1);
end;



procedure TdlgFindListItem.FormCreate(Sender: TObject);
begin
  cbMatching.ItemIndex := 0;
end;

procedure TdlgFindListItem.FormDestroy(Sender: TObject);
begin
 dlgFindListItem := nil;
end;

procedure TdlgFindListItem.FormShow(Sender: TObject);
begin
 if edContent.CanFocus then edContent.SetFocus;
end;

procedure TdlgFindListItem.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if ModalResult = mrOk then
   CanClose := (edContent.Text<>'') and (cbFindColumn.ItemIndex <> -1);
end;

end.