 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Крок 3. Створення процедури оброблення команди New головного меню
1. Створіть процедуру оброблення команди New меню File головної форми і введіть туди наступний код:
Var
Child: TChild; // Змінна класу TChild – дочірнє вікно
begin
// Виклик конструктора дочірнього вікна
Child:= TChild.Create(Self);
Child.Show; // Показати форму
end ;
Рядок Var Child: TChild; означає опис змінної Child класу TChild, тобто дочірнього вікна (після зміни імені форми на Child ім’я типу автоматично змінилося на TChild).
Для створення екземпляра класу TChild викликається конструктор Create, параметром якого є змінна Self – покажчик на власника (Owner) дочірньої форми, тобто батьківську форму MainForm.
Метод Show відображає створену форму на екрані.
Запустіть програму і вивчіть дії команди New.
Крок 4. Створення діалогів відкриття і збереження графічних файлів
1. Додайте до головної форми компоненти OpenPictureDialog (діалог відкриття графічного файлу) і SavePictureDialog (діалог збереження графічного файлу) із палітри Dialogs. Змініть їх імена на OpenPictureDialog і SavePictureDialog відповідно.
2. Змініть властивість Title (заголовок) діалогу OpenPictureDialog на Відкрити графічний файл, SavePictureDialog на Зберегти графічний файл.
Змініть властивість DefaultExt (розширення за умовчання) компонента SavePictureDialog на bmp
3. Створіть процедуру оброблення команди Open меню File головної форми і введіть туди наступний код:
Var
Child: TChild; // Змінна типу TChild – дочірнє вікно
Begin
// Запуск діалогу OpenPictureDialog
If OpenPictureDialog.Execute Then
Begin
//Виклик конструктора вікна
Child:= TChild.Create(Self);
Child.Image.Picture.LoadFromFile(OpenPictureDialog. FileName);
Child.ClientWidth:= Child.Image.Picture.Width;
Child.ClientHeight:= Child.Image.Picture.Height;
Child.Caption:= ExtractFileName(OpenPictureDialog. FileName);
Child.Show;
end;
end;
Після запуску діалогу OpenPictureDialog методом Execute, створюється новий екземпляр дочірньої форми Child, яка необхідна для відображення рисунка.
На формі Child розташований компонент Image (зображення), що має властивість Picture (рисунок), що, у свою чергу, має метод LoadFromFile (завантажити з файлу). Параметром LoadFromFile є рядок OpenPictureDialog.FileName, тобто ім’я файлу, обране у діалозі відкриття.
У наступних рядках наведеного коду встановлюється висота і ширина робочої частини форми (ClientWidth, ClientHeight), рівна висоті і ширині рисунка, що зчитується, а також заголовок (Caption) форми – ім’я рисунка. Функція ExtractFileName використовується для відокремлення імені файлу з його повного імені (що включає назву диска та каталогів).
Запустіть додаток і завантажте у нього кілька файлів рисунків.
4. Створіть процедуру оброблення команди SaveAs меню File і введіть туди наступний код:
If ActiveMDIChild <> Nil Then // Якщо є відкриті вікна
// Виконати діалог збереження
Поиск по сайту: