search.pas

电子小说阅读器v2.68可用于阅读pdf.html等各种形式的文档

{
模块名称：查找

使用方法：1、Show

返回值：  1、mrOk：查找
		  2、mrCancel：放弃查找
		  3、EditFindText.Text：返回查找的字符串
		  4、CheckBoxCaps.Checked：返回是否使用大小写
}

unit Search;

interface

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

type
  TFormSearch = class(TForm)
	Label1: TLabel;
	EditFindText: TComboBox;
	CheckBoxCaps: TCheckBox;

	BtnOk: TButton;
	BtnCancel: TButton;

	procedure FormShow(Sender: TObject);
	procedure BtnOkClick(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  FormSearch: TFormSearch;

implementation

{$R *.DFM}

procedure TFormSearch.FormShow(Sender: TObject);
begin
	EditFindText.SetFocus;
	EditFindText.SelectAll;
end;

procedure TFormSearch.BtnOkClick(Sender: TObject);
begin
	if (EditFindText.Text <> '') and (EditFindText.Items.IndexOf(EditFindText.Text) < 0) then
		EditFindText.Items.Add(EditFindText.Text);
end;

end.