Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перетаскивание формы

Volkodav © (2006-03-08 20:11:00)
Уважаемые мастера подскажите, почему при запус ке программы с таким кодом
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:00) [1]
Вот поэтому: ClipCursor(@r1);

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »