Технологія пересування обєктів Авто Засоби для реалізації даної технології звязані з подіями (OnDragDrop,OnStartDrag I …) OnMouseDown, OnMouseUp. - презентация

1 Технологія пересування обєктів Авто Засоби для реалізації даної технології звязані з подіями (OnDragDrop,OnStartDrag I …) OnMouseDown, OnMouseUp

2

3 Мета: розмістити на формізапчастини, із яких під час виконання програми можна зібрати обєкти Взяти компонент із Властивість Shape1 встановити значення stCircle Зверніть увагу на розміщення фігури!!!

4 Відкрити вкладку Events Клацнути 2 рази ЛКМ в пустому полі OnMouseDown procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sender –обєкт, який посилає системі повідомлення, що на ньому клацнули мишкою(To send – посилання)