Программа-шутка

1. Поместить компоненты Label и Button в форму в соответствии с рисунком

2. Установить свойство объекта Button2:

DragMode dmAutomatic

3. Записать код для обработки события MouseMove на объекте Button2:

procedure TForm1.Button2MouseMove(Sender: TObject; Shift:

TShiftState; X,Y: Integer);

begin

Button2.Left:= Button2.Left+10;

Button2.Top:= Button2.Top+10;

end;

4. Записать код для обработки события Click на объекте Button1:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:= 'Мы были в этом уверены!'

end;

5. Выполнить программу.

6. Развитие задачи:

Изменить программу т.о., чтобы при подводе курсора мыши к кнопке Button2 кнопка исчезала, а при отводе курсора - появлялась.

Упражнение 6