VPF::Системные курсоры - Форум программистов

Budy

Дата 4.4.2004, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

:Всех приветствую!
Ни для кого не секрет, что для изменения курсора формы можно написать так:

Код

Screen.Cursors[1]:=LoadCursorFromFile('Hand.cur');Panel1.Cursor:=Screen.Cursors[1];Panel1.Cursor:=1;

А есть еще функция SetSystemCursor(HCURSOR,Cardinal). Вот как у системы изменять курсоры также как для своей формы?

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 8.4.2004, 04:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Хотелось бы еще понять, "кто такой" HCURSOR?

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

dm9

Дата 8.4.2004, 11:57 (ссылка)

(голосов:1)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

А справочку почитать не хотелось?

function LoadCursorFromFile(lpFileName: PAnsiChar): HCURSOR;

Пример:
SetSystemCursor (LoadCursorFromFile ('D:\1.cur'), OCR_NORMAL);

Только это меняет курсор "стрелочка" на твой. Остальные же курсоры останутся прежними.

<Spawn>

Дата 9.4.2004, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Цитата(Budy @ 7.4.2004, 20:42)

Хотелось бы еще понять, "кто такой" HCURSOR?

Самая обычная 4-х байтовая переменная обозваная как HCURSOR, откуда логически можно домыслить, что она хранит в себе Handle курсора, представляющее из себя некоторое уникальное значение - манипулятор, ассоциированое с реальным описаловом курсора. А вот как она с ним ассоциирована знает только Microsoft))

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

RinOSpro

Дата 2.11.2007, 21:44 (ссылка)

(голосов: 1)

Загрузка ...

Unregistered

Код


procedure TForm1.Button2Click(Sender: TObject);
var
Curs : HCURSOR;
begin
  Curs := LoadCursor(0,IDC_CROSS);
  SetSystemCursor(Curs, OCR_NORMAL);
end;

end.

Это сообщение отредактировал(а) RinOSpro - 2.11.2007, 21:44

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »