findlistitem.pas

来自「一个Delphi写的跟考勤机门禁机收款机的接品软件源码」· PAS 代码 · 共 73 行

unit FindListItem;

interface

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

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

var
  dlgFindListItem: TdlgFindListItem;

implementation

{$R *.dfm}

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

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

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

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

end.