Помогите пожалуйста

← →
DeMoN-777 © (2002-05-15 17:11) [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

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

← →
DeMoN-777 © (2002-05-15 18:24) [1]

Помогите пожалуйста

← →
. (2002-05-15 20:14) [2]

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