Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Событие 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;

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



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
1-84066
Dr. Andrew
2003-06-07 13:30
2003.06.26
Где ошибка при завершении Hook и как занести данные в TPoint?


8-84459
Ifrit
2003-03-09 13:32
2003.06.26
Народ, помогите!!!!, Как сделать форму прозрачной...


3-84026
paulsin
2003-05-31 19:52
2003.06.26
SQL функция TOP


1-84238
Holy
2003-06-13 10:30
2003.06.26
По самой среде.


8-84460
Dimonich
2003-03-07 14:30
2003.06.26
Как определить длину проигрываемого саунд трека?