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

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

настройки по умолчанию и пройдется менять все параметры, а чтоб этого не делать нужно присвоить значения от Memo1 к FontDialog. Вставим следующий код, после Memo1.Lines.LoadFromFile(s): FontDialog1.Font:=Memo1.Font;{присвоить все параметры которые находятся в свойстве Font} На этом создание главной формы закончено. Можно скомпилировать и запустить проект, и если всё сделано правильно, то ошибок не каких быть не должно. - 13 - Описание вспомогательных программ,

использованных в программе «Записная книжка» «Справочник друзей» Постановка задачи   Так как в программе «Справочник друзей» нужно будет записывать телефон, адрес, фамилию и имя человека то нужен компонент который мог бы это разрешить. Можно использовать базу данных для этих целей, но Delphi имеет компонент StringGrid. Для StringGrid’а ненужно дополнительных компонентов, а для работы с базами данных нужно несколько компонентов,

которые лишь увеличивают размер программы. На форме будет 3 кнопки: «Добавить» (добавить строку), «Удалить » (удалить выделиную строку), «Выйти» (сохранить и закрыть программу). Создание интерфейса   В свойстве Caption формы введём текст: ‘Справочник друзей’, а в свойстве формы Name введём имя формы: ‘Dryzi’. В свойстве формы AutoSize нужно выставить True, для то чтобы форма изменяла размер вместе с компонентами. Перенесём с закладки Additional

компонент StringGrid на форму. Выставляем следующие свойства этого компонента: 1.ColCount = 6 (количество столбцов) 2.FixedCols = 0 (зафиксировать(нельзя изменять) первый столбец) 3.FixedRows = 1 (зафиксировать(нельзя изменять) первую строку) 4.RowCount = 2 (количество строк) 5.SrollBars = ssVertical (ползунок вертикального типа) Перенесём на форму 3 кнопки BitBtn. Эти кнопки даёт возможно прикепить к ним пиктограмму. Назовем кнопки: 1. «Добавить» 2. «Удалить» 3. «Выйти»

Поместим эти 3 кнопки сверху StringGrid1. Описание процедур и функций   Начнём с кнопок. В кнопку «Добавить» вставляем следующий код: StringGrid1.RowCount:= StringGrid1.RowCount+1;(добавить строку) В кнопку «Удалить» вставляем код: var i,j: Integer; begin j:=StringGrid1.Row; // строка с выделением StringGrid1.Rows[j].Clear; //очистить выдилиную строку for i:=j to StringGrid1.RowCount-2 do //цикл нахождения выделиной строки - 14 - StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]); // StringGrid1.RowCount:=StringGrid1.RowCount-1; // удалить строку В

кнопку «Выйти» просто вставим один оператор: ‘Close’. Для каждой кнопки нужно подобрать пиктограму, для этого нужно использовать свойство Glyph. Так как это справочник, то нужно чтобы все записи сохранялись, при выходе, и загружались, при запуске программы. Для этого в Окне Редактора Кода между словами Type и где объявляются другие процедуры нужно написать: ‘Procedure SaveGrid;’, а после слова implementation нужно вставить следующий код: procedure