Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS
←   Июль 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.308 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss
Статус: Академик
Рейтинг: 2475
∙ повысить рейтинг » 		star9491
Статус: Профессионал
Рейтинг: 2322
∙ повысить рейтинг » 		Евгений/Genia007/
Статус: Профессионал
Рейтинг: 1021
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Delphi и Lazarus

Номер выпуска:1545
Дата выхода:16.07.2010, 14:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:299 / 191
Вопросов / ответов:1 / 1

Вопрос № 179463: Здравствуйте Уважаемые эксперты. Подскажите, пожалуйста, как можно выполнить одно и то же действие для всех форм, чтобы не прописывать его в каждой. Вот: const crMyCursor = 5; Screen.Cursors[crMyCursor] := LoadCursor(HInstan...

Вопрос № 179463:

Здравствуйте Уважаемые эксперты.
Подскажите, пожалуйста, как можно выполнить одно и то же действие для всех форм, чтобы не прописывать его в каждой.
Вот:

const
crMyCursor = 5;

Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'MYC');
Cursor := crMyCursor;

Я хочу применить новый курсор ко всем формам. Мне приходится эти строки прописывать в каждой форме.
Можно ли сделать это проще?

Отправлен: 11.07.2010, 13:16
Вопрос задал: Dimon4ik, 5-й класс
Всего ответов: 1
Страница вопроса »

Отвечает Patriotix-N, 5-й класс :
Здравствуйте, Dimon4ik.

Для того, чтобы применить курсор ко всем формам, вам действительно не надо прописывать код в каждой из них. Дело в том, что вы используете не совсем верный подход. Вы хотите поменять TForm.Cursor, а вам надо, всего лишь, менять Screen.Cursor, тогда курсор будет применен ко всем формам приложения. Для того, чтобы применить курсор ко всему приложению до его запуска, надо изменить код проекта.
Если брать ваш код, то он будет выглядеть так, как в приложении. Для работы с курсорами вам надо добавить в секцию uses файл Controls, и для работы с экраном - Windows.

Приложение:

-----
Лучше знать ничего обо всем, чем все ни о чем.

Ответ отправил: Patriotix-N, 5-й класс
Ответ отправлен: 12.07.2010, 17:11
Номер ответа: 262508

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262508 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.16 от 26.05.2010
    В избранное