Построить стандартный интерфейс приложения в среде Delphi очень легко, достаточно хорошо владеть мышкой Создание элементов интерфейса заключается в перетягивании и расстановке визуальных объектов. Для нашего первого блокнота понадобится: Компонент Button (кнопка) Компонент Мето (поле для ввода и редактирования текста) Приступим! Запускаем среду Delphi. После запуска, у нас уже будет открыта форма, готовая к творению :). Давайте сразу сохраним наш проект. При проектировании и кодинге, не забывайте чаще нажимать кнопку «Сохранить», особенно в моменты компиляции, иначе, в случае ошибки, рискуете потерять несохраненную часть проекта. Жмем File->Save Project As... File Edit Search View Project New Open... Open Project... Ctrl+F11 Reopen Save As rog Ctrl-s Save Project As... Save All Shift + Ctr / S Close Close All Создадим каталог "MyNotepad v 1^ .. и в него сохраним модуль и файл проекта под следующими именами: Модуль РАЅ Save Notepad As Недена Имя exfecten programm schoor. Библиотеки Компьютер T prog Файл проекта dpr Save Notepad As места Tinka exhiuteced Notepad chool.ru4 Delphi unt pa www.programm-schoo Библиотеко Компьютер hool.ru Дата изменения 26.06.2013 21:38 Tw www.program prog Дата изменения 26.06.2013 21:32 Отмена Справка Tun Delph www.programmStandard Additional | Win32 System Data Access| Data Controls И щелкнув по свободной области формы, удерживая ЛКМ, нарисуйте текстовое поле следующим образом: www.programm-schoo www.pr program www.programm-school.ru www.program rogramm-school.ru Также добавьте объекты Button. Standard Additional Win32 | System | programy Data Access| Data E Приблизительно вот так: www.programm-school.ru www.program Вот и все проектирование. Конечно это примитив, но таким образом строится большинство прикладных приложений. Давайте зададим нашей форме имя в строке заголовка окна. Назовем ее «MyNotepad <1». Для этого выделите форму, щелкнув по ней мышкой и в окне «Object Inspector», найдите свойство Caption и вместо «Form1» введите «MyNotepad v1»:Object Inspector Form1 Properties Events Action ActiveControl TForm1 allNone AlphaBlendValk 255aramm-S Align AlphaBlend False [akLeft.ak Top] Anchors AutoScroll True AutoSize False BiDiMode bdLeftToRight Borderlcons [biSystemMenu,biMinimiz BorderStyle bsSizeable BorderWidth 0 Caption MyNotepad v1. ClientHeight 618 ClienfWidth 517 Color clBtnFace Теперь перейдем к кнопкам. Нам необходимо им так же дать смысловые метки «Открыть» и «Сохранить», а так же задать имя, более понятное, нежели Button1 и Button2. Как задать свойство Caption вы уже знаете, имя же задается в свойстве Хате: Object Inspector E3 OpenBut TButton Properties Events Cursor Default crDefault False DragCursor crDrag DragKind dkDrag ramm dmManual DragMode Enabled True Font (TFont) Height 33 HelpContext 0 HelpKeyword HelpType htContext Hint имя: Left 4 ModalResult mrNone Name Openbul I ParentBiDiMo True ParentFont True ParentShowHi True PopupMenu ramm Присвоим имена для: Button1 - OpenBut Button2 SaveBut. И последний штрих, текстовое поле Мето. В поле по умолчанию отображается его MyNotepad v1 Memo1Избавиться от него можно следующим образом, находим в «Object Inspector» свойство <>> Object Inspector Memo1 TMeno Properties Events HideSelection Hint True ImeMode imDont Care 0 ImeName Left TStrings) Lines MaxLerigth 0 Memo1 Name gramm Жмем по langle langle,,,, rangle rangle и все удаляем. Далее, задайте полю Мето имя txt вместо memo1. В итоге форма должна выглядеть приблизительно так: MyNotaped vi www.programm-schoo www.programr www.programm-school.ru www.program mm-school.ru Открыть grame Это процедура на событие Click (нажатие кнопки). Нам необходимо между ключевыми словами begin и end прописать следующую строчку txt.Lines.LoadFromFile(ExtractFilePath(application.ExeName)+("\test.txt')); procedure TForm1. OpenButClick(Sender: TObject); begin txt.Lines.LoadFromFile(ExtractFilePath(application.ExeName)+('\test.txt')); end; txt- наш объект текстовое поле; Lines - свойство которое содержит текстовые строки (мы его еще чистили от Мето1); Остается только прописать код нашим кнопкам. Для того чтобы это сделать необходимо щелкнуть два раза по кнопке. Кликаем по кнопке «Открыть», после чего откроется окно редактора кода со следующим содержимым: procedure TForm1.OpenButClick(Sender: TObject); end; beginLoadFromFile процедура загрузки строк из текстового файла: ExtractFilePath(application.ExeName) функция возвращает путь к каталогу из которого запущено наше приложение; ("\test.txt') - собственно имя открываемого файла, который должен находиться с нашей программой. Теперь пропишем код для кнопки «Сохранить». procedure TForm1.SaveButClick(Sender: TObject); begin txt.Lines.SaveToFile(ExtractFilePath(application.ExeName)+("\test.txt')); end; В этом случае отличие в процедуре SayeToFile, которая сохраняет содержимое Lines в файл test.txt Полный листинг модуля ex Notepad выглядит так: unit exNotepad; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) txt: TMemo; OpenBut: TButton; SaveBut: TButton: procedure OpenButClick(Sender: TObject); procedure SaveButClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1: implementation {$R *.dfm} procedure TForm1. OpenButClick(Sender: TObject); begin txt.Lines.LoadFromFile(ExtractFilePath(application.ExeName)+("\test.txt')); end; begin procedure TForm1.SaveButClick(Sender: TObject); txt.Lines.SaveToFile(ExtractFilePath(application.ExeName)+("\test.txt')); end; end. Вот и все. Запускаем наше приложение, нажав на кнопку Run (F9): File Edit Search View Project Run Com Star Сначала введем какой-либо текст и нажмем сохранить. После чего, в папке с проектом появится файл test.txt При следующем запуске приложения жмем «Открыть».