close

Вход

Забыли?

вход по аккаунту

?

Лабраб 9 ПрогрИнж Application

код для вставкиСкачать
Лабораторная работа №9
ОРГАНИЗАЦИЯ ПРОЕКТА ПРИЛОЖЕНИЯ
Цель работы: изучить свойства и функции Application, освоить технологию работы с проектом приложения в среде Delphi.
Оборудование: ПЭВМ IBM PC-AT 486 и выше.
Программные средства: ОС Windows (98/2000/NT/ME/XP/Vista), MSOffice (2000/2003/2007), Delphi 5 и выше.
Программа работы
1. Разработать приложение с кнопками (по вариантам). Использовать метод ProcessMessages для обработки сообщений во время выполнения длительного цикла.
2. Через свойства объекта TApplication задать цвет, интервал задержки перед выводом и интервал отображения всплывающей подсказки приложения. 3. Через свойства объекта TApplication изменить программно пиктограмму и название приложения, вывести путь, где находится файл приложения.
4. Организовать корректное завершение программы с использованием метода Terminate.
5. Изучить и описать файлы проекта.
6. Оформить отчет, ответить на контрольные вопросы.
Ход работы.
В данной лабораторной работе я разработал приложение с кнопкой, использовал метод ProcessMessages для обработки сообщений во время выполнения длительного цикла.
Вариант 4:
Считаем до 50000, сделать компонент Image видимым.
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, AppEvnts, ExtCtrls, jpeg;
type
TApplication_Borovik = class(TForm)
Sobytie: TApplicationEvents;
Knopka: TBitBtn;
kartinka: TImage;
Timer1: TTimer;
procedure KnopkaClick(Sender: TObject);
procedure SobytieDeactivate(Sender: TObject);
procedure SobytieShortCut(var Msg: TWMKey;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SobytieActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Application_Borovik: TApplication_Borovik;
t: integer;
implementation
{$R *.dfm}
procedure TApplication_Borovik.KnopkaClick(Sender: TObject);
var i:integer;
begin
i:=0;
repeat
inc(i);
Application.ProcessMessages;
Caption:=inttostr(i);
kartinka.Visible:=true;
Application.OnHint(self);
until i>=50000 ;
kartinka.Visible:=false;
end;
procedure TApplication_Borovik.SobytieDeactivate(Sender: TObject);
begin
Timer1.Enabled:=True;
if t=2 then kartinka.Visible:=true;
end;
procedure TApplication_Borovik.SobytieShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if Msg.CharCode = Ord('Q') then
if Application.MessageBox(
'Завершить работу',
'Подтвердите',
MB_YESNOCANCEL + MB_ICONQUESTION) = IDYES
then Application.Terminate;
end;
procedure TApplication_Borovik.FormCreate(Sender: TObject);
begin
t:=0;
Knopka.Hint:='Начать выполнение цикла';
Knopka.ShowHint:=true;
Application.HintColor:=clSkyBlue;
Application.HintHidePause:=4000;
Application.HintPause:=7000;
Application.ShowHint:=true;
end;
procedure TApplication_Borovik.Timer1Timer(Sender: TObject);
begin
inc(t);
end;
procedure TApplication_Borovik.SobytieActivate(Sender: TObject);
begin
t:=0;
Timer1.Enabled:=false;
end;
end.
Скриншоты:
Схема:
Контрольные вопросы и задания
1. Поместите листинг файла project.dpr. Снабдите комментариями все строчки кода.
program Project1; // имя проекта
uses // используемые модули
Forms, // модуль Forms
Unit1 in 'Unit1.pas' {Form1}; // модуль Unit1 в файле 'Unit1.pas'
{$R *.res} // директива включения *.res файлов в программу
Begin // начало исполняемой части главного модуля
Application.Initialize; // инициализация приложения
Application.CreateForm(TForm1, Form1); // создание формы Form1
Application.Run; // запуск приложения
end. // конец исполняемой части главного модуля
2. Приведите перечень файлов проекта.
Project1.dpr, Project1.exe, Project1.res, Unit1.dcu, Unit1.dfm, Unit1.pas.
3. Какие файлы проекта можно прочитать в программе Блокнот?
Project1.cfg, Project1.dpr, Unit1.dfm, Unit1.pas.
4. Какие файлы добавляются в проект после компиляции?
DCU - откомпилированные модули.
5. Какое название отображается на панели задач при сворачивании приложения?
Application.Title - определяет заголовок приложения на панели задач
6. Какие действия реализованы через метод ProcessMessages в вашей работе?
Caption:=inttostr(i); вывод значения счетчика во время выполнения цикла.
7. Какой метод можно применить вместо метода Terminate?
Application.Title - определяет заголовок приложения на панели задач
8. Когда генерируется событие Onldle?
Событие Onldle генерируется при простое приложения. Операции, включённые в обработчик этого события, выполняются каждый раз, когда приложение заканчивает текущую работу и переходит в режим ожидания.
ВыполнилБоровик А.С.ПроверилаГеоргица И.В.
1
Документ
Категория
Рефераты
Просмотров
12
Размер файла
310 Кб
Теги
лабораторная работа, лабраб, application, прогринж, лаба, лабораторная
1/--страниц
Пожаловаться на содержимое документа