Главная страница
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.48 MB
Время: 0.018 c
1-76433
Artemkin
2003-03-11 19:37
2003.03.24
Чтение тэга в винамп


6-76551
stur
2003-02-03 15:50
2003.03.24
Как правильно читать из TCPClient?


1-76423
BillyJeans
2003-03-11 15:52
2003.03.24
Как узнать ссылку на обработчик AfterPost


14-76620
Delirium^.Tremens
2003-03-06 10:14
2003.03.24
Идиосинкразия


9-76253
Dark[UA]
2002-09-30 09:25
2003.03.24
GLScene