Метод установления фокуса

Для установки фокуса на какой-либо компонент формы используют стандартный метод SetFocus.

Пример 13.1. При передаче фокуса от одной кнопки к другой используют следующий фрагмент программы:

procedure TForm1.Button1Click(Sender: TObject);

begin

Button2.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Button1.SetFocus;

end;

Порядок выполнения работы

1. Создать форму, в заголовке которой указать свою фамилию, имя, номер группы. Общий вид формы, наличие кнопок свертывания/развертывания, закрытия окна, системного меню, расположение формы при открытии приложения определяется согласно варианту из табл. 13.5. Цвет фона формы и шрифты всех компонентов подобрать самостоятельно, обязательно изменив установки по умолчанию.

2. Разместить на форме текстовые поля с указанием номера лабораторной работы и номера варианта. Разместить текстовые поля по центру формы, а также кнопки «Задание 1» и «Задание 2». При нажатии на эти кнопки должны появляться соответствующая варианту (табл. 13.6) постановка задачи и ее решение. При нажатии кнопки «Задание 1» должна становиться активной кнопка «Задание 2» и наоборот.

Форма может иметь вид, показанный на рис. 13.4.

Рис. 13.3. Вид формы для лабораторной работы № 13

Варианты

Таблица 13.5. Общий вид формы

Таблица 13.6. Функции для вычисления

№ п/п	Функция N	Функция Z	Аргументы
			x	y	u
1			0.7	-3.1	f	3
2			0.2	1.7	t	8
3			-0.4	0.8	t	-3
4			-0.1	1.3	f	4
5			0.5	-9.5	f	8
6			-0.37	4.5	t	18
7			-8.3	-15.2	f	-3
8			0.7	2.3	f	10
9			2.1	13.12	t	37
10			-0.6	3.4	t	-1
11			-2.1	3.2	t	3
12			1.14	-2.1	f	-40
13			5	2.1	f	27
14			1.3	-0.7	t	-3
15			-13.2	0.21	f	-101
16			-8.4	3.27	t	813
17			0	-3.5	t	-2
18			-2.8	0.31	f	12
19			4.2	0	f	14
20			2.84	1.11	f	1
21			10.1	14.2	t	16
22			4.37	-26.11	t	5

Окончание табл. 13.6

№ п/п	Функция N	Функция Z	Аргументы
			x	y	u
23			2.3	0.31	t	-5
24			1.1	-5.3	f	3
25			-1.21	0.18	t	1
26			-11.4	-2.13	f	-1
27			129.3	6.92	t	2
28			0.84	839.62	t	11
29			0.37	214.3	t	2
30			3	-929.14	f	0