Контрольная работа по "Программированию"

Position Позиция левого верхнего угла диалогового окна, заданная типом TPoint – записью, содержащей поля X (экранная координата по горизонтали) и Y (экранная координата по вертикали)

ReplaceText Только в компоненте TReplaceDialog - текст, который должен заменять FindText

Top Координата верхнего края диалогового окна, то же, что Position.Y

 

Основные методы:

CloseDialog Закрывает экземпляр TFindDialog (TReplaceDialog)

Execute Отображает диалог

 

Основные события:

OnFind  Наступает, когда пользователь нажимает кнопку Найти далее.

OnClose Наступает, когда диалог закрывается.

OnReplace Наступает, когда пользователь нажимает кнопку Заменить или Заменить все

OnShow Наступает, когда диалог открывается.

3.3 Пример

Использовано событие OnFind для объекта TFindDialog.

Программа, реализующая  поиск при выборе пользователем  раздела меню Поиск (имя MFind), может  иметь следующий вид (рис.3):

 

var SPos:integer;

...

procedure TForm1.MFindClick(Sender: TObject);

begin

{запоминание позиции курсора}

SPos:=Memo1.SelStart;

with FindDialog1 do begin

  {начальное значение текста  поиска - текст, выделенный в Memo1}

  FindText:=Memo1.SelText;

  {позиционирование окна диалога  внизу Memo1}

  Position:=Point(Form1.Left,Form1.Top+Memo1.Top+Memo1.Height);

  {удаление из диалога кнопок "Вверх", "Вниз",

   "Только  слово  целиком"}

  Options:=Options + [frHideUpDown,frHideWholeWord];

 

  {выполнение}

  Execute;

end;

end;

 

procedure TForm1.FindDialog1Find(Sender: TObject);

begin

with FindDialog1 do begin

if frMatchCase in Options

  {поиск с учетом регистра}

  then Memo1.SelStart:=Pos(FindText,                          

Copy(Memo1.Lines.Text,SPos+1,                            

Length(Memo1.Lines.Text)))+Spos-1

  {поиск без учета регистра}

  else Memo1.SelStart:=Pos(AnsiLowerCase(FindText),

                    AnsiLowerCase(Copy(Memo1.Lines.Text,SPos+1,

 

                    Length(Memo1.Lines.Text))))+Spos-1;

  if Memo1.SelStart>=Spos

   then begin

    {выделение найденного текста}

    Memo1.SelLength:=Length(FindText);

    {изменение начальной  позиции поиска}

    SPos:=Memo1.SelStart+Memo1.SelLength+1;

   end

   else

    if MessageDlg(

          'Текст "'+FindText+'" не найден. Продолжать диалог?',

          mtConfirmation,mbYesNoCancel,0) <> mrYes

    then CloseDialog;

end;

Memo1.SetFocus;

end;

 

В программе вводится переменная SPos, сохраняющая позицию, начиная с которой надо проводить  поиск.

 

 

 

 

 

 

 

 

 

 

 

 

 

рис.3

 

 

 

 

Список использованной литературы:

 

1. Культин Н. Основы программирования в Delphi 7 (самоучитель),  
   С-Пб.: «БХВ-Петербург», 2006 г.
2. Шупрута В.В. «Delphi 2005 Учимся программировать» (самоучитель), издательство NT Press, Москва, 2005 г.
3. Справка Delphi 6 (англоязычная версия).
4. Справка Delphi 7 (русскоязычная версия)