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

← →
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;

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

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

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