Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

свой курсор [D7, Win2k, WinXP]

Гость2 © (2005-12-09 17:18:00)
Вот такой вопрос, все кажись элементарно, но у меня не работает :(
Я создал курсор в файле ресурса Project1.res назвал его myCursor1
и подключаю его, а он не подключается, в чем может быть проблема?

implementation

{$R *.dfm}

const
curMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[curMyCursor] := LoadCursor(HInstance, 'myCursor1');
imgSkrol.Cursor := 1;
.
.
.

Гость2 (2005-12-11 12:04:00) [1]
Ура, все работает. :)
Это оказался просто баг в Delphi.
Я установил только что Update и все заработало
Всем спасибо.
Тема закрыта

Гость2 (2005-12-11 11:17:00) [2]
Да в том то и дело, что все четко, все совпадает, все имена и все названия

:(

может в этом какая-то проблема

{$R *.dfm}
{$R MyRes.res}

Джо (2005-12-11 01:46:00) [3]
Как что значит? Именно то и значит, что ресурса с таким именем и таким типом в ресурсах не найдено.
Перепроверь имя ресурса, может где-то опечатался. Убедись, что в файле ресурсов он именно CURSOR. И т.п. Ну что еще можно посоветовать дистанционно? тут только сам.

Гость2 (2005-12-11 00:34:00) [4]
выдает ошибку :(

Указаный тип ресурса в файле образа отсутствцет

Это что означает и как с этим бороться?

Джо (2005-12-10 03:46:00) [5]
Т.е, в таких случаях делают что-то вроде var Cursor: THandle; ... Cursor := LoadCursor(HInstance,'Cursor1'); if Cursor = 0 then RaiseLastOSError; Screen.Cursors[crCursor1] := Cursor;
И ВСЕГДА смотри в раздел Return Value в описании ЛЮБОЙ функции.

Джо (2005-12-10 03:43:00) [6]
Посмотри, что возвращает функция LoadCursor.

Гость2 (2005-12-09 22:12:00) [7]
создал файл MyRes.res с курсором Cursor1

implementation

{$R *.dfm}
{$R MyRes.res}

const
curMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[curMyCursor] := LoadCursor(HInstance, 'Cursor1');
imgSkrol.Cursor := curMyCursor;
.
.
.

Все равно не работает :(
Что не так?

Гость2 (2005-12-09 17:51:00) [8]
ок, попробую так

Чапаев (2005-12-09 17:25:00) [9]

> Я создал курсор в файле ресурса Project1.res

Никогда не лезь в ресурсный файл проекта. Создай свой rc/res с курсором и уж его подключай.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »