Задание 2.3 Изменим вид отображения компонента DateTimePicker1, при щелчке на CheckBox1.

В обработчике щелчка на CheckBox1 напишите:

if CheckBox1.Checked then DateTimePicker1.Kind:=dtkTime else

DateTimePicker1.Kind:=dtkDate;

Запустите программу. Щелкните на CheckBox1. Убедитесь в правильности работы программы. Вернитесь в режим программирования.

Установите следующие значения:

Компонент	Свойство	Значение свойства	Описание
StringGrid1	DefaultColWidth	20	Ширина столбцов таблицы
	ColCount	10	Число столбцов таблицы
	RowCount	10	Число строк таблицы
	Cells[i,j]		Соответствующий таблице двумерный строковый массив
	FixedCols		Число зафиксированных слева столбцов таблицы
	FixedRows		Число зафиксированных сверху строк таблицы

Задание 2.4 Запрограммируем обработчик щелчка на Button1 так, чтобы он заполнял StringGrid1 как матрицу заполненную случайными числами.

Для этого напишите в обработчике следующее:

var i,j:integer;

begin

for i:=1 to 7 do

for j:=1 to 7 do

StringGrid1.Cells[i,j]:=IntToStr(random(11));

end;

Запустите программу. Щелкните на Button1. Убедитесь в правильности работы программы. Вернитесь в режим программирования.

Задание 2.5 Исследуем функциональность компонента UpDown1

Здесь же скиньте на форму CheckListBox со следующими значениями:

Компонент	Свойство	Значение свойства	Описание
CheckListBox1	Items	Однажды в студеную зимнюю пору я из лесу вышел…	Массив содержит текстовые записи(строки), они нумеруется с нуля

Щелкните на свойстве Associate компонента UpDown1 и из раскрывшегося списка выберите компонент Edit1. Вот и всё. Теперь UpDown1 визуально прицепился к Edit1 и проассоциирован с ним, настроившись на него.

Компонент	Свойство	Значение свойства	Описание
UpDown1	position	1	позиция
	Min	0	минимум position
	Max	4	максимум position
	Increment	1	приращение величины

Запустите программу. Щелкайте на стрелках «вверх» или «вниз» компонента UpDown1 и значение в Edit1 будет соответственно меняться, но в пределах указанных для UpDown1, т.е. Min=0 и Max=2 свойства position. Вернитесь в режим программирования.