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

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

← →
Visit   (2003-03-07 10:09) [0]

Есть необходимость использовать в приложении свой курсор, которого нет в стандартном наборе. Существует способ решения такой проблемы?

---

← →
Anatoly Podgoretsky ©   (2003-03-07 10:18) [1]

Существует

---

← →
Roma ©   (2003-03-07 10:25) [2]

Однозначно... ;) И никакая это не проблема... Screen.Cursors, LoadCursor + F1

---

← →
Переяслов Григорий ©   (2003-03-07 10:34) [3]

Используй ресурсы. *.res

---

← →
blackman ©   (2003-03-07 10:49) [4]

Прибамбасы не способствуют работоспособности и нормальному восприятию юзером Вашего продукта.
Непривычное пугает юзеров.

---

← →
Visit   (2003-03-07 11:22) [5]

to blackman:
Ну это вы зря, я делаю это собственно ради того чтобы обеспечить более интуитивное восприятие. Там, где я собираюсь использовать, это просто необходимо. Поясню: по щелчку на Image
данная область будет увеличиваться в масштабе, поэтому очень логично, что курсор должен выглядеть как лупа.

---

← →
Intell ©   (2003-03-07 20:33) [6]

Вот готовый код:

procedure TForm1.FormShow(Sender: TObject);
var
h : THandle;
begin
h:=LoadImage(0,"Курсор указываете здесь или путь к нему",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h = 0 then ShowMessage("Внимание! Курсор не загружен")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;


или

В implemintation допечатайте:


const
crMyCursor = 1;


Дальше обработайте событие OnCreate вашей формы:


procedure TForm1.FormCreate(Sender: TObject);
begin
{Загружаем курсор}
Screen.Cursors[crMyCursor] := LoadCursorFromFile("C:\Windows\Cursors\Globe.ani");
{Используем курсор на форме}
Cursor := crMyCursor;
end;

Intell
sergein@nojabrsk.ru

---

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

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



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