Технологія пересування обєктів Авто Засоби для реалізації даної технології звязані з подіями (OnDragDrop,OnStartDrag I …) OnMouseDown, OnMouseUp
Мета: розмістити на формізапчастини, із яких під час виконання програми можна зібрати обєкти Взяти компонент із Властивість Shape1 встановити значення stCircle Зверніть увагу на розміщення фігури!!!
Відкрити вкладку Events Клацнути 2 рази ЛКМ в пустому полі OnMouseDown procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sender –обєкт, який посилає системі повідомлення, що на ньому клацнули мишкою(To send – посилання)