Записная книжка на Delphi 7 — страница 7

  • Просмотров 9368
  • Скачиваний 669
  • Размер файла 147
    Кб

begin {Начальное значение поиска текста, выделенный в Мемо} findtext:=memo1.SelText; // позиционирование окна диалога внизу Memo position:=point(mainform.Left,mainform.Top+memo1.Top+memo1.Height) ; // удолнеия из диалога кнопок “Вверх”, “Вниз”, “Только слово цылеком” options:=options + [frhideupdown,frhidewholeword] ; execute; //запуск диалога end; end; Теперь в OnFind компонента FindDialog1 вставляем следующий код: 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 - 10 - if messagedlg('Текст"'+findtext+'"ненайден',mtconfirmation,[mbok],0) <>mrok then closedialog; memo1.SetFocus; end; Теперь нужно объявить переменную Spos, вверху окна редактора кода

нужно найти оператор VAR, перед всеми процедурами и функциями и написать после него Spos:integer; Переменная Spos сохраняет позицию, начиная с которой надо проводить поиск. 2.     “Отменить” Для отмены последнего изменения текста, компонент Memo имеет процедуру Undo. Этот код нужно вставить в кнопку: Memo1.Undo; //отменить последние действие 3.     “Копировать” Для копирования, в буфер обмена, выделенного текста в компоненте Memo

есть процедура CopyToClipboard. Эту процедуру надо вставить в кнопку: Memo1.CopyToClipboard; // скопировать текст в буфер обмена 4.     “Вырезать” Для вырезания выделенного текста, в буфер обмена, в компоненте Memo есть процедура CutToClipboard. Эту процедуру надо вставить в кнопку: Memo1.CutToClipboard; // вырезание текста в буфер обмена 5.     “Вставить” Для вставки текста который лежит в буфере обмена в компоненте Memo есть процедура PasteFromClipboard.

Эту процедуру надо вставить в кнопку: Memo1.PasteFromClipboard; // вставить текст из буфера обмена 6.     “Очистить” Для того чтобы очистить окно Memo от текста, этот компонент имеет процедуру Clear. Эту процедуру вставляем в кнопку: Memo1.Clear; // очистить Memo от текста 7.     “Шрифт” Для изменения шрифта в Delphi есть компонент FontDialog. Через его свойство Font - 11- можно изменять свойства разных компонентов имеющие это свойство, в том числе и

компонента Memo. Переносим этот компонент с закладки Dialogs на форму и в процедуре OnClick кнопки пишем следующий код: if FontDialog1.Execute then begin // запустить окно FontDialog1 Memo1.Font:=Fontdialog1.Font; // присвоить значения FontDialog1 компоненту Memo1 8.     “Дата и время” Для того чтобы вставить в Memo1 дату и время есть процедура DateTimeToString. Вставим следующий код в процедуру кнопки OnClick: var TD: String; //переменная в которую занесётся дата и время begin {Заносим в