Page 17 - 6370

button2.BeginDrag(false,15);
end;

13. Запрограмовують подію FormDragOver, завдяки котрій
користувач матиме можливість рухати об’єкт button2 по
вікні застосунка. Для того щоб, можливість руху
обмежувалась тільки об’єктом button2, застосовують
оператор source = button2, який вказуватиме на істинність
значення параметра accept тільки у випадку, коли
переміщується саме цей об’єкт.

procedure TForm2.FormDragOver(Sender,
Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);

begin
accept:= (source = button2);

Button2.Left:=x;
Button2.Top:=y;

end;
14. Здійснюють команду RUN і виконують необхідні
графічні побудови (рисунок11).

15. Наводять курсор на об’єкт <ґумка>, натискають на
будь-яку клавішу миші і не відпускаючи її, рухають об’єкт
по місцях розміщення ліній, які необхідно «витерти»
(рисунок 12). Ефект «стирання» відбувається тому, що
всяка візуальна зміна на самій формі - це автоматичний
виклик події OnPaint, адже саме вона підтримує графічне
відображення компонентів на формі і безпосердньо
пікселів поверх тла форми. Отже, в конкретних координтах
X,Y куди з допомогою миші заводять верхній лівий кут
кнопки <ґумка> і далі на всю її ширну і висоту
підтримується тільки її відображення.
19