Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

ClipCursor - что-то не работает   Найти похожие ветки 

 
Rel_   (2003-08-22 14:40) [0]

Мастера, что за глюк непонятный !!!

У контрола на OnShow вызываю
ClipCursor(@TRect(Left,Top,Left,Top+Height)); - вообще не работает.

Причём просматриваю пошагово: после выполнения команды курсор клипируется, а за пределами ф-ии (т.е. после отрисовки контрола действие команды исчезает)


 
MBo ©   (2003-08-22 14:42) [1]

(@TRect(Left,Top,Left,Top+Height)
Вау! ;)

нормальную переменную Заратустра не позволяет сделать?


 
Rel_   (2003-08-22 14:49) [2]

Ну хватит глумиться. По твоему я не пробовал.

Если хочешь, то и так не работает !!!

procedure OnForm1Show(...)
var r : TRect;
begin
r.Left := Left;
r.Top := Top;
r.Right := Left+Width;
r.Bottom := Top+Bottom;
ClipRect(@r);
end;

Запускаю старые проги, в которых работало - не работает, что за глюк не пойму. Я же говорю - смотрю пошагово - ф-ия отрабатывается идеально - курсор клиппируется. Курсор выходит за пределы OnForm1Show(...) - всё пропадает.


 
MBo ©   (2003-08-22 14:57) [3]

перенеси в OnActivate


 
Rel_   (2003-08-22 14:57) [4]

Маленькое дополнение : если ту же функцию поместить на нажатие кнопки, то всё OK.

Чем же эта ф-я отличается при переносе её в OnShow ???
У меня перекрыто событие перерисовки фона - но это (я думаю) никоем образом не должно влиять !!!

PS: чуть ошибся - там в ф-ии Left+Width конечно - но энто не решило проблемы.


 
Rel_   (2003-08-22 14:59) [5]

to MBo ©

Перенёс - заработало. Просвети в чём разница ??? Может энто какая-нибудь особенность NT . Под 98-ой всё работало !!! Странно.


 
MBo ©   (2003-08-22 15:06) [6]

не знаю, раньше не сталкивался.



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

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
7-89612
Kremen
2003-07-23 14:11
2003.10.27
Как получить доступ к рабочему столу?


6-89450
kopcap
2003-09-02 13:32
2003.10.27
Работа с файлами...


1-89313
Иванько
2003-10-15 18:37
2003.10.27
Работа с RichEdit - проблемы


14-89579
blackman
2003-10-07 13:35
2003.10.27
Наследие капитана Мэрфи


14-89493
Ketmar
2003-10-08 17:57
2003.10.27
proxy server со скриптами в кладовке %-)