Задание к лабораторной работе №1

1. Разработать приложение, в котором при щелчке на кнопке " Старт " на форме с именем " Задание №1" появляется номер вашей группы и ваша фамилия.

2. Изменить приложение так, чтобы при щелчке на кнопке " Старт ", надпись передвигалась слева направо.

3. Добавить кнопку " Стоп " для остановки надписи.

4. Изменить приложение, чтобы при достижении надписью при движении слева направо правой вертикальной границы формы надпись меняла шрифт и цвет и начинала движение в обратную сторону.

5. Изменить, чтобы надпись двигалась по периметру.

6. Разместить на форме вопрос и две кнопки с ответами "Да " и " Нет ". Разработать приложение, при выполнении которого пользователь не может ответить на вопрос утвердительно, т.к. кнопка " Да" при подведении к ней курсора перемещается в пределах формы, при щелчке на кнопке " Нет ", на форме появляется бегущая надпись. Сравните свое решение с приведенными ниже примерами.

Пример 1.1 "Бегущая строка" Вид формы:

Описание данных программы:

Процедура обработки события "Открытие формы":

procedure TForm1.FormCreate(Sender: TObject);

Var

temp: string;

Begin

j:=25; h:=10; r:=0; g:=0; b:=0; col:='r';