Управление внешним видом
1. Цель работы:
Изучить виды, свойства и методы компонентов, понятие фокуса.
2. Пояснения к работе
2.1 Краткие теоретические сведения.
Краткие теоретические сведения…
2.2 Перечень используемого оборудования
Персональный компьютер.
3. Задание
Модифицировать программу для работы с окнами:
3.1. После нажатия клавиши Развернуть/ Свернуть сделать её не активной, а при нажатии клавиши Развернуть/Свернуть снова активной;
3.2. Выводить состояние второго окна при помощи компонента lable. Если окно Развёрнуто то lable зелёного цвета в противном случае красного;
3.3. После нажатия клавиши Развернуть/ Свернуть перевести фокус на другую кнопку;
4.1. Модифицировать программу для работы с окнами:
4.1. После нажатия клавиши Развернуть/ Свернуть сделать её не активной, а при нажатии клавиши Развернуть/Свернуть снова активной;
1. В обработчик нажатия клавиши Развернуть добавляем строки
Button1.Enabled:=False; // выключаем кнопку Развернут
Button2.Enabled:=True; // включаем кнопку Свернуть
2. В обработчик нажатия клавиши Свернуть добавляем строки
Button1.Enabled:= True; // выключаем кнопку Свернуть
Button2.Enabled:= False; // включаем кнопку Развернут
4.2. Выводить состояние второго окна при помощи компонента lable. Если окно Развернуто, то lable зелёного цвета в противном случае красного;
1. Добавляем на форму компонент lable
2. В обработчик нажатия клавиши Развернуть добавляем строки
label1.Caption:='Окно развёрнуто';
label1.Font.color:=clLime;
3. В обработчик нажатия клавиши Свернуть добавляем строки
label1.Caption:='Окно свёрнуто';
label1.Font.color:=clRed;
4.3. После нажатия клавиши Развернуть/ Свернуть перевести фокус на другую кнопку;
1. В обработчик нажатия клавиши Развернуть добавляем строки
Button2.SetFocus;
2. В обработчик нажатия клавиши Свернуть добавляем строки
Button1.SetFocus;
4.4. Пример программы
Рис.1 Пример программы
4.8. Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Button1.Enabled:=False;
Button2.Enabled:=True;
label1.Caption:='Окно развёрнуто';
label1.Font.color:=clLime;
Button2.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Hide;
Button1.Enabled:=True;
Button2.Enabled:=False;
label1.Caption:='Окно свёрнуто';
label1.Font.color:=clRed;
Button1.SetFocus;
end;
end.
4. Контрольные вопросы
4.1. Контрольный вопрос
4.2. Контрольный вопрос
4.3 . Контрольный вопрос
4.4. Контрольный вопрос
5. Содержание отчёта
Отчёт должен содержать:
5.1. Название работы;
5.2. Цель работы;
5.3. Задание;
5.4. Ответы на контрольные вопросы;
5.5. Выводы к работе.