search.pas

编写

unit search;

interface

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

type
  Tf_Search = class(TForm)
	ok: TButton;
	cancel: TButton;
	Label1: TLabel;
	FindText: TComboBox;
	Check_Caps: TCheckBox;
	procedure FormShow(Sender: TObject);
	procedure okClick(Sender: TObject);
	procedure cancelClick(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  f_Search: Tf_Search;

implementation

{$R *.DFM}

procedure Tf_Search.FormShow(Sender: TObject);
begin
  FindText.SetFocus;
end;

procedure Tf_Search.okClick(Sender: TObject);
begin
  if (FindText.Text<>'') and (FindText.Items.IndexOf(FindText.Text)<0) then
     FindText.Items.Add(FindText.Text);
  ModalResult:=mrOk;
end;

procedure Tf_Search.cancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.