Скачать: CL | DM;

Перетаскивание рисунка по форме при помощи мыши   Найти похожие ветки 

← →
KPY ©   (2002-10-21 07:53) [0]

какие события обрабатывать?

---

← →
Qpwoe!   (2002-10-21 08:02) [1]

MouseMove, MouseDown и MouseUp
Смотри

var x:boolean;

procedure MouseDown;
begin
x:=true;
end;

procedure MouseUp
begin
x:=false;
end;

procedure MouseMove;
begin
with image1 do
begin
top:=x-height div 2;
left:=y -width div 2;
end;
end;


Заглавления процедур было в облом писать...

---

← →
KSergey ©   (2002-10-21 10:28) [2]

посмотрите на королевстве статью "Жизнь и смерть в режиме run-time"

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c