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

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

← →
Volkodav ©   (2006-03-08 20:11) [0]

Уважаемые мастера подскажите, почему при запус ке программы с таким кодом
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove=$F012;
var
r1: TRect;
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0);
GetClipCursor(r1);
r1:=Form2.ClientRect;
r1.TopLeft:=Form2.ClientToScreen(r1.TopLeft);
r1.BottomRight:=Form2.ClientToScreen(r1.BottomRight);
ClipCursor(@r1);
end;
после первого перетаскивания мышь не может выйти за пределы формы?

---

← →
API ©   (2006-03-08 20:21) [1]

Вот поэтому: ClipCursor(@r1);

После перетаскивания надо: ClipCursor(nil);

P.S. А зачем Вы вообще ограничиваете перемещения курсора?

---

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

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



Память: 0.44 MB
Время: 0.065 c