Текущий архив: 2006.03.26;
Скачать: 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 вся ветка
Текущий архив: 2006.03.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.051 c
