Помогите пожалуйста
DeMoN-777 © (2002-05-15 17:11:00)
Уважаемые мастера.
Я подгружаю курсор из 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
С уважением, Дмитрий.
. (2002-05-15 20:14:00) [1]
DeMoN-777 (2002-05-15 18:24:00) [2]
Помогите пожалуйста
Наверх 
ЧАТ |
Орешник |
|
