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

Вниз

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

 
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;



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

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

Наверх




Память: 0.46 MB
Время: 0.017 c
1-22066
Андрей Сенченко
2001-12-19 10:53
2002.01.08
Типы. Или помогите прочитать HELP


14-22392
~Mag~
2001-11-10 13:27
2002.01.08
Народ как разблокировать реестр в виндовсе ???


7-22432
Voldemar
2001-09-25 04:12
2002.01.08
Назначение приоритета призапуске...


14-22368
Ежик
2001-11-08 09:52
2002.01.08
Internet


14-22379
Феликс
2001-11-05 19:54
2002.01.08
Покажи? - А может не надо? -Покажи тебе говорят!