свой курсор

← →
Гость2 (2005-12-09 17:18) [0]

Вот такой вопрос, все кажись элементарно, но у меня не работает :(
Я создал курсор в файле ресурса Project1.res назвал его myCursor1
и подключаю его, а он не подключается, в чем может быть проблема?

implementation

{$R *.dfm}

const
curMyCursor = 1;

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

← →
Чапаев © (2005-12-09 17:25) [1]

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

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

← →
Гость2 (2005-12-09 17:51) [2]

ок, попробую так

← →
Гость2 (2005-12-09 22:12) [3]

создал файл 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;
.
.
.

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

← →
Джо © (2005-12-10 03:43) [4]

Посмотри, что возвращает функция LoadCursor.

← →
Джо © (2005-12-10 03:46) [5]

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

← →
Гость2 (2005-12-11 00:34) [6]

выдает ошибку :(

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

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

Как что значит? Именно то и значит, что ресурса с таким именем и таким типом в ресурсах не найдено.
Перепроверь имя ресурса, может где-то опечатался. Убедись, что в файле ресурсов он именно CURSOR. И т.п. Ну что еще можно посоветовать дистанционно? тут только сам.

← →
Гость2 (2005-12-11 11:17) [8]

Да в том то и дело, что все четко, все совпадает, все имена и все названия

:(

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

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

← →
Гость2 (2005-12-11 12:04) [9]

Ура, все работает. :)
Это оказался просто баг в Delphi.
Я установил только что Update и все заработало
Всем спасибо.
Тема закрыта

свой курсор Найти похожие ветки