Самостоятельная работа. If button= btPrev then

Begin

Begin

Begin

Begin

Var

Практическая работа

Begin

Begin

If button= btPrev then

label1.Font.Size:=updown1.position+1;

If button= btNext then

label1.Font.Size:=updown1.position-1;

end;

или

procedure TForm1.UpDown1Changing(Sender: TObject;

var AllowChange: Boolean);

AllowChange:=true;

label1.Font.Size:= updown1.position;

end;

Создадим проект «Гороскоп», который по дате рождения предоставляет пользователю узнать знак зодиака и животное, в год которого он родился.

Свойству Name компонентов ComboBox1 и ComboBox2 укажите соответственно имена CB1 и CB2. Укажите маску ввода для MaskEdit1 (строки ввода года) 9999;1;X. Для автоматического набора года можете связать MaskEdit с UpDown. Назначьте событие OnKeyPress на компонент MaskEdit для вывода результата при нажатии на клавишу Enter.

procedure TForm1.MaskEditE1KeyPress(Sender: TObject; var Key: Char);

god,k:integer;

{проверяем знак зодиака}

if key=chr(13) then //если нажата клавиша Enter

if ((cb1.text>='21') and (cb2.text='март'))

or ((cb1.text<='20') and (cb2.text='апрель'))

//если дата рождения находится в интервале от 21.03 до 20.04

then

label5.caption:='Овен';

image1.Picture.loadFromFile('C:\Знаки зодиака\Овен.bmp');//загружаем в контейнер картинку с изображением овна(файлы с картинками подберите самостоятельно)

end;

if ((cb1.text>='21') and (cb2.text='апрель'))

or ((cb1.text<='21') and (cb2.text='май'))

then

label5.caption:='Телец';

image1.Picture.loadFromFile('C\Знаки зодиака\Телец.bmp');

…….и т.д. и т.п.

{Проверяем год}

god:=StrToInt(Trim(maskEdit1.text)); //переводим строку, введенную в maskEdit1без обрамляющих пробелов, в целочисленный тип

k:=god mod 12;// делим год на 12 и в зависимости от остатка определяем: 0-обезьяна, 1-петух, 2-собака, 3-кабан, 4-крыса, 5-бык, 6-тигр, 7-кот, 8-дракон,9-змея, 10-лошадь,11-овца

case k of

0: Begin

label7.caption:='Обезьяны';

image2.Picture.loadFromFile('C:\Восточный гороскоп\Обезьяна.bmp');

end;

1: Begin

label7.caption:='Петуха';

image2.Picture.loadFromFile('C:\Восточный гороскоп\Петух.bmp');

end;

…….и т.д. и т.п.

end;

Поставьте на форму список Listbox, кнопку Button и две строки ввода Edit. Опишите процедуру для кнопки, при нажатии на которую список заполняется всеми четными цифрами в диапазоне от значения, введенного в Edit1 до значения, введенного в Edit2.

Дата добавления: 2015-05-09