Смена курсора для всех элементов формы

@Виетор · Регистрация: 01.03.2013

Здравствуйте, извиняюсь за нубский вопрос, но я поменял курсор с помощью:

Delphi

1 2	Screen.Cursors[5]:= LoadCursorFromFile('my.cur'); Cursor:= 5;

Курсор меняется внутри пустой области формы, но при наведении на другие элементы формы(например кнопки), он сменяется обратно на системный. Как сделать что бы он оставался прежним при наведении на другие элементы?
Ах да, ещё вопросик - как сделать, что бы курсор менялся во всех формах, а не только где прописан приведенный выше код?

@Shurvik · 13.07.2014, 22:39

"во всех формах" -погугли SetSystemCursor.

Добавлено через 6 минут
Не забудьте кстати про "DestroyCursor".

@northener · 15.07.2014, 01:45

Сообщение от Виетор

Курсор меняется внутри пустой области формы, но при наведении на другие элементы формы(например кнопки), он сменяется обратно на системный.

Логично.

Сообщение от Виетор

Cursor:= 5;

В этой строке упомянут курсор без упоминания чей это курсор. В таком случае в методе формы считается что имеется в виду курсор самой формы. Т.е. что написал, то и получил. А для всего приложения надо было писать

Delphi

1	Screen.Cursor:=...

@Виетор · 15.07.2014, 12:24 **[ТС]**

Сообщение от northener

Screen.Cursor:=...

Не работает.

@northener · 15.07.2014, 15:10

Сообщение от Виетор

Не работает.

Что не работает? Компьютер?

@Виетор · 15.07.2014, 17:11 **[ТС]**

Сообщение от northener

Что не работает? Компьютер?

Предложенный вами способ.

@northener · 15.07.2014, 17:39

Сообщение от Виетор

Предложенный вами способ

У меня работает. Проверено.

@Виетор · 15.07.2014, 17:41 **[ТС]**

Сообщение от northener

У меня работает. Проверено.

У меня не работает. Проверено.

@Puporev · 15.07.2014, 18:00

Не по теме:

Сообщение от Виетор

У меня не работает. Проверено.

Нашел чем хвастаться, своей тупостью...

@Виетор · 15.07.2014, 18:05 **[ТС]**

Не по теме:

Сообщение от Puporev

Нашел чем хвастаться, своей тупостью...

Спасибо за помощь.

@Puporev · 15.07.2014, 18:11

Так тебе уже все написали, там делов-то 1 строчка.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
screen.Cursor:=-3;
end;

Добавлено через 2 минуты
В справке на TCursor type показаны все допустимые виды курсора, их названия и индексы

@Виетор · 15.07.2014, 18:25 **[ТС]**

Смена системного:

Delphi

procedure TMain_Form.FormCreate(Sender: TObject);
begin
  OS_cur:= CopyIcon(LoadCursor(0, IDC_ARROW));
  Screen.Cursors[5]:= LoadCursorFromFile('left_ptr.cur');
  SetSystemCursor(CopyIcon(Screen.Cursors[5]), OCR_NORMAL);
end;
 
procedure TMain_Form.FormDestroy(Sender: TObject);
begin
  SetSystemCursor(OS_cur, OCR_NORMAL);
end;

Смена для формы:

Delphi

1 2	Screen.Cursors[5]:= LoadCursorFromFile('left_ptr.cur'); Screen.Cursor:= 5;

Добавлено через 10 минут

Не по теме:

Сообщение от Puporev

своей тупостью...

2-й способ работает не во всех формах, поэтому я и написал, что "не работает", каюсь, не верно выразился, а вы предпочли сразу грубить.

@northener · 15.07.2014, 20:15

Сообщение от Виетор

2-й способ работает не во всех формах

Это как это не во всех?

@Виетор · 15.07.2014, 20:28 **[ТС]**

Архив:

@northener · 15.07.2014, 20:36

Сообщение от Виетор

Архив:

Не распаковывается.

@Виетор · 15.07.2014, 20:38 **[ТС]**

А этот?

@northener · 15.07.2014, 21:06

Да. Это следствие метода ShowModal.

Delphi

function TCustomForm.ShowModal: Integer;
...
begin
   ...
    SaveCursor := Screen.Cursor;
    Screen.Cursor := crDefault;

Смена курсора для всех элементов формы

Решение

Решение

@Shurvik 45 / 45 / 14 Регистрация: 12.02.2013 Сообщений: 152
	13.07.2014, 22:39	2
	Сообщение было отмечено Виетор как решение Решение "во всех формах" -погугли SetSystemCursor. Добавлено через 6 минут Не забудьте кстати про "DestroyCursor". 1

@Виетор 5 / 5 / 3 Регистрация: 01.03.2013 Сообщений: 201
	15.07.2014, 12:24 [ТС]	4
	Сообщение от northener Screen.Cursor:=... Не работает. 0

@northener пофигист широкого профиля 4463 / 2948 / 833 Регистрация: 15.07.2013 Сообщений: 16,952
	15.07.2014, 15:10	5
	Сообщение от Виетор Не работает. Что не работает? Компьютер? 0

@Виетор 5 / 5 / 3 Регистрация: 01.03.2013 Сообщений: 201
	15.07.2014, 17:11 [ТС]	6
	Сообщение от northener Что не работает? Компьютер? Предложенный вами способ. 0

@northener пофигист широкого профиля 4463 / 2948 / 833 Регистрация: 15.07.2013 Сообщений: 16,952
	15.07.2014, 17:39	7
	Сообщение от Виетор Предложенный вами способ У меня работает. Проверено. 1

@Виетор 5 / 5 / 3 Регистрация: 01.03.2013 Сообщений: 201
	15.07.2014, 17:41 [ТС]	8
	Сообщение от northener У меня работает. Проверено. У меня не работает. Проверено. 0

@Puporev
	15.07.2014, 18:00 #9
	Не по теме: Сообщение от Виетор У меня не работает. Проверено. Нашел чем хвастаться, своей тупостью... 0

@Виетор
	15.07.2014, 18:05 [ТС] #10
	Не по теме: Сообщение от Puporev Нашел чем хвастаться, своей тупостью... Спасибо за помощь. 0

@northener пофигист широкого профиля 4463 / 2948 / 833 Регистрация: 15.07.2013 Сообщений: 16,952
	15.07.2014, 20:15	13
	Сообщение от Виетор 2-й способ работает не во всех формах Это как это не во всех? 1

@northener пофигист широкого профиля 4463 / 2948 / 833 Регистрация: 15.07.2013 Сообщений: 16,952
	15.07.2014, 20:36	15
	Сообщение от Виетор Архив: Не распаковывается. 0