Записная книжка на Delphi 7 — страница 7
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 {Заносим в
Похожие работы
- Рефераты
- Контрольные