Событие onMouseMove

← →
Shark (2003-06-15 17:59) [0]

Мастера подскажите как в своем классе сосдать обработчик события onMouseMove с помощью которого на форме можно было бы перемещать объект (Panel:TPanel) в любое место формы.

← →
Дмитрий Белькевич (2003-06-15 21:27) [1]

var
LMouseDown:boolean;

procedure tform1.onmousedown();
begin
if button = mbLeft then LMouseDown:= true;
end;

procedure tform1.onmouseup();
begin
if button = mbLeft then LMouseDown:= false;
end;

procedure tform1.onmousemove(...x,y);
begin
if not LMouseDown then exit
Panel.Top:=y;
Panel.Left:=x;
end;

что-то типа такого не работает?

Событие onMouseMove Найти похожие ветки