Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Прочитайте вопрос!!! 


Art   (2001-12-08 09:01) [0]

Чтобы ограничить плоскоть движения курсора границами формы делаю так:

var
aRect: TRect;
begin
GetWindowRect(Handle, aRect);
ClipCursor(@aRect);

Но получается один глюк,после завершения работы программы ограничение не снимается,как снять????



MBo   (2001-12-08 10:23) [1]

ну в Destroy сделай так же, только

arect:=rect(0,0,GetSystemMetrics(SM_CXFULLSCREEN),GetSystemMetrics(SM_CYFULLSCREEN));
ClipCursor(@aRect);

это высота без трея, полную навскидку не помню - поищи



troits   (2001-12-08 11:01) [2]

Господа, ну один взгляд в Help и ClipCursor(nil) пишется сам собой!!!



PVR   (2001-12-08 11:02) [3]

Предыдущий ответчик абсолютно прав хочу сделать только маленькое дополнение.В доках у Била настоятельно рекомендуется при использовании ClipCursor делать активизацию окна. Странно потому как когда курсор ктото ограничивает окно обычно активно но Бил есть Бил



Olgerd   (2001-12-09 02:35) [4]

Так лучше и делать, а то когда нажимаешь Ctrl-Alt-Del, а потом Escape ClipCursor"а как не бывало.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
3-8753            sos                   2002-01-04 16:53  2002.02.04  
Компонента для работы с файлами типа *.btr


3-8793            Flagman               2002-01-07 04:44  2002.02.04  
Locate + CaseSensetive? HELP!!!


4-9036            Chup                  2001-12-03 16:16  2002.02.04  
Как убить процесс сеанса дос.


14-8983           Olgerd                2001-12-08 18:07  2002.02.04  
Иконы


1-8918            Baron                 2002-01-17 11:33  2002.02.04  
Как добавить свойство Flat к компанентам?