Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования и науки РФ
Государственное образовательное учреждение
высшего профессионального образования
«Тульский государственный университет»
Политехнический институт
Кафедра «Сварка, литье и технология конструкционных материалов»
лабораторная работа № 5
Использование невизуальных компонентов в среде Borland Delphi
по дисциплине
ИНФОРМАТИКА
Разработал Сметанин Д.А.
Проверил Захаров С. К.
1. ЦЕЛЬ И ЗАДАЧИ РАБОТЫ
Изучить назначение и базовые возможности приложения Borland Delphi.
2. ТЕОРЕТИЧЕСКИЕ ПОЛОЖЕНИЯ
В начале нами были рассмотрены компоненты, которые предоставляются пользователю во время разработки приложения в таком виде, в каком будут отображаться во время выполнения приложения. В Delphi есть компоненты другого типа, называемые невизуальными. Они в большинстве случаев не видимы во время работы программы, но незримо присутствуют и выполняют свои функции. В основном при работе с этим типом компонентов вы будете писать код, использующий их свойства. Некоторые невизуальные компоненты имеют настраиваемые свойства, например компоненты меню и запросов, но в любом случае, вам придется писать код для использования их свойств и методов. В этой работе вы научитесь делать следующее:
- Создавать меню
- Управлять пунктами меню во время выполнения приложения
- Использовать компонент TTimer
Организация на форме мигающего текста или картинки, для напоминания пользователю о том, что нужно завершить операцию или для сообщения о произошедшей в приложении ошибке. Имитация часов и секундомеров, показывающих результат визуально. Отслеживание некоторых системных событий или ситуаций и совершение действий на основании полученного результата.
Код следующего примера (светофор) показывает простое применение объекта TTimer.
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='stop' then
Button1.Caption:='start' else
Button1.Caption:='stop';
Timer1.Enabled:=not Timer1.Enabled;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Shape1.Brush.Color=clBlack) and
(Shape2.Brush.Color=clBlack)
then begin
Timer1.Interval:=5000;
(Shape1.Brush.Color:=clRed);
(Shape2.Brush.Color:=clBlack);
(Shape3.Brush.Color:=clBlack);
end else
if (Shape1.Brush.Color=clRed) and
(Shape3.Brush.Color=clBlack) then
begin
Timer1.Interval:=500;
(Shape1.Brush.Color:=clBlack);
(Shape2.Brush.Color:=clYellow);
(Shape3.Brush.Color:=clBlack);
end else
begin
Timer1.Interval:=5000;
(Shape1.Brush.Color:=clBlack);
(Shape2.Brush.Color:=clBlack);
(Shape3.Brush.Color:=clGreen);
end;
end;
Спроектировать пункты меню поместив на форму компонент MainMenu
procedure TForm1.N5Click(Sender: TObject);
begin
Label1.Visible:=true;
Label1.Font.Color:=ClRed;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Label1.Visible:=true;
Label1.Font.Color:=ClGreen;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Label1.Visible:=False;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Edit1.Visible:=True;
Edit1.Text:='Создание меню';
Edit1.Font.Size:=14;
Edit1.Font.Style:=[fsItalic];
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Edit1.Visible:=True;
Edit1.Text:='Создание меню';
Edit1.Font.Size:=14;
Edit1.Font.Style:=[fsUnderLine];
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Edit1.Text:='';
end;
procedure TForm1.Ok1Click(Sender: TObject);
begin
BitBtn1.Visible:=True;
BitBtn1.Kind:=BkOk;
end;
procedure TForm1.Yes1Click(Sender: TObject);
begin
BitBtn1.Visible:=True;
BitBtn1.Kind:=BkYes;
end;
procedure TForm1.No1Click(Sender: TObject);
begin
BitBtn1.Visible:=True;
BitBtn1.Kind:=BkNo;
end;
procedure TForm1.Help1Click(Sender: TObject);
begin
BitBtn1.Visible:=True;
BitBtn1.Kind:=BkHelp;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
BitBtn1.Visible:=False;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Edit1.Visible:=False;
end;
end.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
. Работа с базами данных в Delphi / В. Э.Гофман, А. Д. Хомоненко .— 2-е изд. — СПб. : БХВ -Петербург, 2003 .— 624с. : ил. (2 экз.)
. Delphi 7 : [наиболее полное руководство] / А. Д. Хомоненко [и др.];под общ.ред.А.Д.Хомоненко .— СПб. : БХВ - Петербург, 2007 .— 1216с. : ил. (7 экз.)
Программирование в Delphi 7 / П. Г. Дарахвелидзе, Е. П.Марков .— СПб.: БХВ -Петербург, 2004 .— 784c. : ил. (1 экз.)
Осипов Д. Delphi. Профессиональное программирование. - СПб.: Символ-Плюс, 2006. -1056 с., ил.
Корняков В. Н. Программирование документов и приложений MS Office в Delphi. - СПб.: БХВ-Петербург, 2005. - 496 с : ил.