Скачать: CL | DM;

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

← →
Курс   (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 - не работает.

---

← →
Юрий Зотов ©   (2005-07-26 03:49) [5]

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

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

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

---

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

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


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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c