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




Вниз

Как можно загрузить свой курсор в дельфи! 


Delphi5.01   (2001-11-05 06:56) [0]

К сожалению у меня не получилось. Обясню по подробности что я делал: Во первых в ImageEditor создал resource file потом появилось окошко и надпись Contents Я нажал правой кнопкой на этой надписи и появилось меню, я выбрал New - Cursor, после появилось акно с редактором курсора я там нарисовал курсор (и изменил название курсора на VIT). А ресурсни фаил сохранил под именем cur.res

Потом в делфи после {$R *.dfm} написал
{$R cur.res}

OnCreate написал то что ты мне посаветовал а именно
ScreenCursors[1]:=LoadCursor(HInstance, "VIT");
ScreenCursors[1] оказался типом HCURSOR я его и поместил в
Var
ScreenCursors[1] : HCURSOR;
После этого дельфи не ругался но операция form1.cursor:=1; ни поизвела никаких изменений. Пожалуйста обясни где я допутил ошибку



Evgeny   (2001-11-05 07:27) [1]

Вот кусок из моей программы, все это работает:

{$R Capture4.Res}

procedure TForm4.FormCreate(Sender: TObject);
const
crBox = -19;
begin
Screen.Cursors[crBox] := LoadCursor(hInstance, pChar("CURSOR_2"));
Cursor := crBox;
end;




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




Наверх





Память: 0.71 MB
Время: 0.048 c
14-22349          Иван Шихалев          2001-11-06 21:48  2002.01.08  
to Anatoly Podgoretsky


14-22417          Yuraz                 2001-10-25 15:02  2002.01.08  
Интересно, Яндекс на чём крутится(IIS..) БД, железо.


1-22259           Крыс                  2001-12-12 17:55  2002.01.08  
Дорисовка кривых (дубль 2)


1-22097           Сержик                2001-12-19 15:45  2002.01.08  
К чему две кнопки привязать, чтобы они были внизу по центру?


7-22429           Oleg_swap             2001-09-20 19:13  2002.01.08  
удаленный запуск программы