Главная » Уроки по ООП » Урок 22. Создание приложений с невизуальными компонентами и меню

КАРТА УРОКА

Урок 22. Создание приложений с невизуальными компонентами и меню

Цель:
Образовательная:	Научится использовать на практике главное и контекстное меню. Создавать приложения, содержащие различные меню. Настраивать свойства пунктов меню и создавать обработчики их событий.
Воспитательная:	воспитание организованности, дисциплинированности; воспитание любви к профессии;
Развивающая:	развитие познавательных способностей
Тип занятия:	урок практических работ
Форма организации учебного процесса:		Лабораторно-практическая работа

Ход урока:

1. Организационный момент.
2. Актуализация прежних знаний. Фронтальный опрос.
3. Выполнение заданий.
4. Подведение итогов урока. Выставление оценок.

Домашнее задание.

Создайте форму как на рисунке. Структура меню:

1. Progress: More, Less - отключен
2. Buttons: First – с галочкой, Second, Third
3. Shaping: Color

Рисунок 6
Коды методов:

procedure TForm1.More1Click(Sender: TObject);
begin
ProgressBar1.Position:= ProgressBar1.Position+10;
Progress1.Caption:='Progress: ' + IntToStr(ProgressBar1.Position)+'%';
More1.Enabled:=ProgressBar1.Position<>100;
Less1.Enabled:=ProgressBar1.Position<>0;
end;

procedure TForm1.First1Click(Sender: TObject);
begin
First1.Checked:=true;
Second1.Checked:=false;
Third1.Checked:=false;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
end;

procedure TForm1.Color1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
end;

Код метода TForm1.Less1Click аналогичен коду метода TForm1.More1Click. Коды методов TForm1.Second1Click и TForm1.Third1Click аналогичны коду метода TForm1.First1Click.

Дополнительное задание.

Добавьте в меню Shaping пункт, циклически изменяющий свойство Shape1.Shape и отображающий эти изменения своим свойством Caption.

 

 

Составитель: Салий Н.А.