Проблема с курсором

← →
DeMoN-777 © (2002-05-14 09:06) [0]

Уважаемые мастера.
Я подгружаю курсор из res файла таким макаром...
procedure TForm1.FormCreate(Sender: TObject);
const
crMyCursor=5;
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "MyCursor");
Screen.Cursor := crMyCursor;
end;

И всё вроде работает нормально. Но когда подводишь курсор к бордеру любого компонента у которого BorderStile:=bsSingle
курсор снова становится стандартный =(

Вопрос: как лечить ?

Если вопрос непонятен скачайте "пример глюка" (сделан специально для пояснения вопроса).
Весит он правдо много (125 Кб.), но зато сразу всё поймёте.
Качать здесь- http://dcsoft.narod.ru/Project1.exe

С уважением, Дмитрий.

← →
Александр_30 (2002-05-14 09:42) [1]

Че-то не качается....

← →
DeMoN-777 © (2002-05-14 09:50) [2]

Народ.ru 100-это не ошибка.
Всё качается сто раз проверил.

← →
Kiborg (2002-05-14 10:13) [3]

Возьмите вот эти компоненты - проблем нет
http://www.flatstyle2k.de/frames.php

← →
DeMoN-777 © (2002-05-14 10:18) [4]

>Kiborg (14.05.02 10:13)

Зачем мне компоненты мне интерестно как проблему решить, а по компонентам вряд-ли многому научишься

← →
Цикл (2002-05-14 11:33) [5]

Плиз, помогите.
Я замучался этот вопрос формулировать, и очень хотел-бы получить на него ответ.

← →
mrcat © (2002-05-14 11:41) [6]

Проблема в чем? ты хочешь сделать курсор активным на все окна, или тебя смущает, что курсор не доходит до края формы? Если второе, то попробуй в (редакторе ресурсов, например) сдвинуть курсор левее - до края активной области.

← →
mrcat © (2002-05-14 11:42) [7]

кинь мне исходник

← →
Цикл (2002-05-14 12:38) [8]

>Цикл (14.05.02 12:38)]

Ты кто такой ?

Считай что уже кинул

Проблема с курсором Найти похожие ветки