Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.24;
Скачать: 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 вся ветка

Текущий архив: 2003.03.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
7-76704
Brush
2003-02-01 10:45
2003.03.24
Как найти все файлы на компе с заданным расширением,,,


9-76256
Axis_of_evil
2002-10-17 16:20
2003.03.24
3D MAX im Delphi


14-76582
DiamondShark
2003-03-06 11:21
2003.03.24
Неприличные слова


9-76248
Axis_of_Evil
2002-10-25 11:39
2003.03.24
Worms


1-76414
galexis
2003-03-13 16:44
2003.03.24
Заставка приложения