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

Для установки фокуса на какой-либо компонент формы используют стандартный метод 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

Контрольные вопросы

1. Создание формы. Основные свойства формы.

2. Компонент TLabel. Основные свойства.

3. Компонент TButton. Основные свойства.

4. Программирование кнопок.

5. Установка фокуса на компоненте.

6. Особенности вывода данных разного типа на форму.

Лабораторная работа № 14 Интерактивный ввод и вывод. Обработка исключительных ситуаций

Цель работы: изучение компонентов TEdit, TRadioButton и их основных свойств. Обработка исключительных ситуаций. Вывод диалоговых окон.

Теоретические сведения

Компонент TEdit (поле редактирования)

Компонент Edit используют для ввода/вывода пользователем ряда символов с клавиатуры. Поле редактирования помещается на форму c помощью кнопки на стандартной панели инструментов. При необходимости преобразования полученной строки (свойство Text) в число и наоборот используют стандартные функции преобразования. Кроме известных, поля редактирования обладают свойствами приведенными в табл.13.7.

Таблица 13.7. Свойства TEdit

Свойство	Описание свойства	Примеры значений
CharCase	Вид набираемых символов в поле	ecNormal — обычные, ecUpperCase — прописные, ecLowerCase — строчные
Ctl3D	Объемное представление компонента	True, False
PasswordChar	Символ для ввода пароля	#0 — прямое отображение текста, * — текст будет отображаться звездочками, 0 — текст будет нулями
ReadOnly	Возможность изменять текст (доступность поля)	True — текст нельзя изменить, False — текст можно изменить
Hint	Текст подсказки, которая появляется при наведении курсора мыши	«Введите число» — произвольный ряд символов
ShowHint	Показывать/Не показывать подсказку	True, False
Text	Текст в поле редактирования	«89,3» — произвольный ряд символов