Объект Свойство Значение Label1 Caption Моя первая программа
жүктеу/скачать 1.52 Mb.
|
- Бұл бет үшін навигация:
- КОНТРОЛЬНЫЕ ЗАДАНИЯ
Записать код обновления времени для процедуры TClock.Timer1Timer: Label1.Caption:=TimeToStr(Time); Добавить в форму компоненты GroupBox и RadioButton: Установить следующие свойства объектов: GroupBox1 Caption Скорость RadioButton1 Caption Медленно RadioButton2 Caption Умеренно RadioButton3 Caption Быстро Записать код для процедуры TForm1.RadioButton3Click: Timer1.Interval := 1000; Самостоятельно записать код для процедур: TForm1.RadioButton1Click (3000) и TForm1.RadioButton2Click (2000) КОНТРОЛЬНЫЕ ЗАДАНИЯЗ аставьте текст на форме периодически перемещаться от левого до правого края Заставьте текст на форме перемещаться по траектории, показанной ниже П рограмма-шутка Поместить компоненты Label и Button в форму в соответствии с рисунком Установить свойство объекта Button2: DragMode dmAutomatic Записать код для обработки события MouseMove на объекте Button2: procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin Button2.Left := Button2.Left+10; Button2.Top := Button2.Top+10; end; Записать код для обработки события Click на объекте Button1: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Мы были в этом уверены!' end; Выполнить программу. Изменить программу т.о., чтобы при подводе курсора мыши к кнопке Button2 кнопка исчезала, а при отводе курсора - появлялась. жүктеу/скачать 1.52 Mb. Достарыңызбен бөлісу:
|