Замена курсора

← →
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

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