Кто делал это на canvas?

[NitroSki]

Уже сделал спасибо...только теперь пытаюсь решить другую проблему - он задает координаты не от размеров формы, а от всего экрана.... то есть:

setcursorpos(500,500);

Вот данный код ставить курсор не по координатам формы , а по координтам всего экрана. Т.о. курсор встает не в форме, а за ней....на экране.....

Вроде попытался максимально изложить...

Если сможете подсказать - как все это ограничить по форме - буду очень благодарен...

Пробовал ClipCursor - но оказывается я вообще не в ту степь полез....

Подскажите, чтобы не серфить кучу инфы...ПЛЗ

[Пепел Феникса]

у формы есть метод ClientToScreen

[NitroSki]

Пожалуйста приведите пример clienttoscreen....строчку для подобной задачи как у меня....чет не могу расковыряться

[Sparkman]

setcursorpos(500+Form1.Left,500+Form1.Top);

[NitroSki]

Спасибо.Логику решения проблемы понял.
Но встает следующая:

if mouse.CursorPos.x>Shape1.left then
setcursorpos(100+form1.left,100+form1.top);

2-ю строчку изменил по вашему совету....работает...

Но проблема в первой строчке -

if mouse.CursorPos.x>Shape1.left

значение координат Шейпа - опять таки берется от всего экрана а не от формы. Что дописать перед шейпом?

Пободное решение проблемы мне очень понравилось - ибо оно прост ои логично...подскажите, что можно придумать с координатами Шейпа

[BARNEY]

// прилипание

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
var p1,p2: TPanel;
begin
releasecapture;
if (Sender as TPanel).Name='Panel1' then
begin
p1:=Panel1;
p2:=Panel2;
end else
begin
p1:=Panel2;
p2:=Panel1;
end;
(Sender as TPanel).Perform(wm_syscommand, sc_dragmove, 0);
if p1.Top<5 then
p1.Top:=0;//прилипание к верхнему краю
if p1.Left<5 then
p1.Left:=0;//прилипание к левому краю
if p1.Top+p1.Height+1>p2.Top then
p1.Top:=p2.Top-p1.Height-1;//прилипание к верхнему краю другой панельки
//и так далее - остальные проверки

if Height-p1.Top-p1.Height-1<5 then
p1.Top:=Height-p1.Height-1;//прилипание к нижнему краю
if Width-p1.Left-p1.Width-1<5 then
p1.Left:=Width-p1.Width-1;//прилипание к правому краю

end;

[NitroSki]

Спасибо за код. Безусловно, что то из него мне пригодиться..... именно таким образом я и думал сделать прилипание.

Только проблема в том, что я щас работаю с курсором мыши и операторами

CursorPos

и

SetCursorPos

А они все исчисляют по координатам всего экрана, но не по координатам формы...
Проблема: надо сделать что в этом роде:

if mouse.CursorPos.X>shape1.ScreenToClient(point(x,y)) then
setcursorpos(100+form1.left,100+form1.top);

Только естественно эти строkи не работают - так как сравнение идет по одному параметру CursorPos.X ,а в ScreenToClient - 2 параметра - х,у...

Как сделать по другому не знаю....

Пока лезет ошибка Incompatible types

[NitroSki]

Спасибо всем за помощь.

Все сделал.
Вот что значит работать с голодным желудком, когда сахар в крови понижен - голова хреново соображает....

После обеда все решилось

Проблему решил может немного по дилетантски, но решил:

if mouse.CursorPos.x>shape1.left+form1.left then
setcursorpos(form1.left+shape1.Left+210,100+form1.top+shape1.Top+52);

Спасибо всем за ответы, и что не оставили тему без внимания