Page 16 - 6370

Рисунок 10 - Очищення вікна застосунку від накреслених
перед тим ліній та фігур .

11. Встановлюють наступну кнопку Button2, надають
значення <ґумка> її властивості caption. Вона призначена
для того, щоб користувач з її допомогою міг «витерти»
непотрібну частину побудованих ним ліній.

12. Запрограмовують подію Button2MouseDown. Її
потреба полягає в необхідності утримання кнопки в
«натиснутому» стані під-час перетягування (Drag) об’єкту
Button2. Вкладена процедура BeginDrag(false,15) вказує на
те, що урухомлення кнопки Button2 починатиметься не
відразу після наведення на кнопку курсора і клацання
клавшою мишки, а після переміщення курсора по об’єкту
на відстань величиною у 15 пікселів при натиснутій
клавіші миші.

procedure TForm2.Button2MouseDown(Sender:
TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
18