TFindDialog

type TFindDialog = class(TCommonDialog)

protected

  FFindForm: TForm;

  FOnReplace: TNotifyEvent;

  FOnFind: TNotifyEvent;

  FOptions: TFindOptions;

  FOnHelpClicked: TNotifyEvent;

  FReplaceText: string;

  FFindText: string;

  function DefaultTitle; override;

  procedure FindClick();

  procedure HelpClick();

  procedure CancelClick();

  function GetHeight; override;

  function GetWidth; override;

  procedure DoCloseForm(); virtual;

  procedure DoShowForm(); virtual;

  procedure Find; virtual;

  procedure Help; virtual;

  procedure Replace; virtual;

  function CreateForm; virtual;

  procedure SetFormValues; virtual;

  procedure GetFormValues; virtual;

  procedure CalcPosition();

  property ReplaceText: string; [rw]

  property OnReplace: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CloseDialog;

  function Execute; override;

  property Left: Integer; [rw]

  property Position: TPoint; [rw]

  property Top: Integer; [rw]

published

  property FindText: string; [rw]

  property Options: TFindOptions; [rw]

  property OnFind: TNotifyEvent; [rw]

  property OnHelpClicked: TNotifyEvent; [rw]

end;

TFindDialog

TCommonDialog

TLCLComponent

TObject