Реферат: Записная книжка на Delphi 7
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
{Заносим в переменную TD дату с параметрами: «Дата» «Месяц» «Год» и время с парамтрами «Часов» «Минут» «Секунд»}
DateTimeToString(TD,'dd mmmm yyyyyy "г." hh:nn:ss ',Now);