Как можно использовать свой курсор в приложении ?

← →
Курс (2005-07-23 04:09) [0]

Как загрузить его и подключить ?

← →
Дмитрий Лукьянихин (2005-07-23 05:52) [1]

Используй Resources для подключения своего курсора

← →
Юрий Зотов © (2005-07-23 05:58) [2]

См. в справке: TScreen.Cursors. Там и пример есть.

← →
Antonn © (2005-07-23 06:29) [3]

procedure TMainForm.Cur(path:string;countCur:integer;Sender: TObject);
var
h: THandle;
begin
h := LoadImage(0,
PChar(path),
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE
);
if h = 0 then
exit // ShowMessage("Cursor not loaded")
else
begin
Screen.Cursors[countCur] := h;
(Sender as TImage).Cursor := countCur;
end;
end;

← →
Курс (2005-07-26 01:17) [4]

> Юрий Зотов © (23.07.05 05:58) [2]
> См. в справке: TScreen.Cursors. Там и пример есть.

Там не то. Там пример как включить уже имеющийся курсор, а надо загружать свои.

>
> Antonn © (23.07.05 06:29) [3]
> procedure TMainForm.Cur(path:string;countCur:integer;Sender:
> TObject);
> var
> h: THandle;
> begin
> h := LoadImage(0,
> PChar(path),
> IMAGE_CURSOR,
> 0,
> 0,
> LR_DEFAULTSIZE or
> LR_LOADFROMFILE
> );
> if h = 0 then
> exit // ShowMessage("Cursor not loaded")
> else
> begin
> Screen.Cursors[countCur] := h;
> (Sender as TImage).Cursor := countCur;
> end;
> end;

Вопрос как узнать countCur ?
Screen.Cursors.Count - не работает.

> Курс (26.07.05 01:17) [4]

> Там пример как включить уже имеющийся курсор, а надо
> загружать свои.

Неправда. Там как раз пример загрузки своего курсора.

← →
Курс (2005-07-26 04:07) [6]

> Юрий Зотов © (26.07.05 03:49) [5]
> Неправда. Там как раз пример загрузки своего курсора.

У тебя не правда. Если у тебя есть пример - запости. А нету, так не выпендривайтся понапрасну.» Юрий Зотов:» 1. Постить пример из справки нет смысла.
2. Научитесь себя вести.

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