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

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

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

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

Курс © (2005-07-23 04:09:00)
Как загрузить его и подключить ?

Курс (2005-07-26 04:07:00) [1]

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

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

Юрий Зотов (2005-07-26 03:49:00) [2]
> Курс (26.07.05 01:17) [4]

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

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

Курс (2005-07-26 01:17:00) [3]

> Юрий Зотов © (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 - не работает.

Antonn (2005-07-23 06:29:00) [4]
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-23 05:58:00) [5]
См. в справке: TScreen.Cursors. Там и пример есть.

Дмитрий Лукьянихин (2005-07-23 05:52:00) [6]
Используй Resources для подключения своего курсора

Наверх

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