ння кнопки відбулося, необхідно задати AllowAllUp = true). Якщо властивість Down під час проектування встановлено рівним true, то початковий стан кнопки - нажатое. p align="justify"> Якщо є кілька кнопок, що мають однакове ненульове значення GroupIndex, то вони утворюють групу взаємопов'язаних кнопок з яких натиснутою може бути тільки одна. Якщо одна кнопка знаходиться в натиснутому стані і користувач клацає на інший, то перша кнопка звільняється, а друга фіксується в натиснутому стані. p align="justify"> Стан кнопки під час виконання можна визначити за значенням властивості Down: якщо значення дорівнює true, то кнопка натиснута. Під час події OnClick значення Down вже одно того стану, який прийме кнопка в результаті клацання на ній. p align="justify"> Хід роботи
. Помістити на форму компонент Panel, привласнити властивості Align значення alTop. Видалити рядок з властивості Caption. p align="justify">. Помістити на Panel чотири компоненти Button (кнопка) і привласнити їх властивості Caption відповідно значення & Open, & Save, Save & As ..., E & xit. Визначити властивість Font для панелі з кнопок як В«жирнийВ»
. Змінити заголовок форми (властивість Caption) - наприклад, My Editor
. Помістити на форму компонент Memo і встановити його властивості наступним чином:
Align - alClient, Scroll bar - ssBoth, Lines (убрать текст з властивості, виконавши клацання на властивості Lines, і потім на кнопці з трьома крапками).
. Помістити на форму компонент OpenDialog, який знаходиться на сторінці Dialog і привласнити його властивостям значення:
DefaultExtTXTTitleОткрить файлOptions.ofFileMustExistTrueOptions.ofNoReadOnlyReturnTrue
. Відкрити вікно редактора фільтрів, для чого двічі клацнути на властивості Filter. Заповнити два перші рядки в колонці Ім'я фільтра назвами фільтрів: текстові файли і всі файли, а в колонці Фільтр ввести відповідні маски: *. Txt та *. * p align="justify">. Помістити на форму компонент SaveDialog і присвоїти йому значення:
DefaultExtTXTTitleСохраніть файлOptions.ofOverwritePromptTrueOptions.ofNoReadOnlyReturnTrue
. Відкрити вікно редактора фільтрів, для чого двічі клацнути на властивості Filter. Заповнити два перші рядки в колонці Ім'я фільтра назвами фільтрів: текстові файли і всі файли, а в колонці Фільтр ввести відповідні маски: *. Txt та *. * p align="justify">. Створимо обробник події OnClick для кнопки Open:
with OpenDialog1 doexecute then.Lines.LoadFromFile (FileName);. Modified: = false;: = 'My Editor -' + ExtractFileName (FileName);. FileName: = FileName;: =''; ;
10. Створимо обробник OnClick для кнопки Save As ..:
with SaveDialog1 doExecute then.Lines.SaveToFile (FileName);. Mod...
