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

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

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

мышка всегда на моей форме

vladish © (2002-05-27 18:54:00)
Привет мастерам и всякому сюда приходящему!

А как сделать чтобы мышка всегда была на моей форме
чтоб нельзя ее было переместить за пределы
(без hook)

Успехов!

mukha (2002-05-27 22:49:00) [1]
// ограничение области перемещения курсора
procedure TForm1.FormCreate(Sender: TObject);
var
aRect:TRect;
begin
Form1.BorderStyle:=bsSingle;
GetWindowRect(Handle, aRect);
ClipCursor(@aRect);
end;

// снятие ограничения перемещения курсора

procedure TForm1.FormDestroy(Sender: TObject);
begin
ClipCursor(nil);
end;

При нажатии мышкой на строку заголовка происходит самопроизвольное освобождение курсора. Чтобы курсор был на форме наверняка - стиль формы задай без строки заголовка.

SPeller (2002-05-27 21:24:00) [2]
ClipCursor() всегда вроде работал. Мож чего не так пишешь?

eSKey (2002-05-27 20:59:00) [3]
может конечно автору это сильно нужно, но лично я программы, которые мне мышь хапают обычно сразу смываю нафиг.

rhf (2002-05-27 19:02:00) [4]
Song, да я знаю....я только начало видел..........

Song (2002-05-27 19:00:00) [5]
2rhf © (27.05.02 18:59)
Всё там работает, никаких ошибок. Ты просто последние несколько ответов не прочитал, там привели пример.

rhf (2002-05-27 18:59:00) [6]
можно clipCursor, но у меня это приводит к ошибке, по этому поводу тут пару дней назад вопрос весел, не знаю к чему там пришли.........

или попробуй перехватом сообщения WM_MOUSELEAVE и ставь координаты в поле формы

Song (2002-05-27 18:58:00) [7]
ClipCursor() вчера был этот вопрос

Наверх

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