Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

Присваивание одного курсора всем компонентам формы   Найти похожие ветки 

 
Demon-777 ©   (2002-05-12 22:45) [0]

Уважаемые мастера.
В моей программе необходимо свой курсор.
Как всем компонентам на форме присвоить его ?
Неужели так =(

for i:=0 to ComponentCount-1 do
if (Components[i] is TTabSheet) or (Components[i] is TSpeedButton) or (Components[i] is TGroupBox) or (Components[i] is TPanel) then
begin
(TSpeedButton(Components[i]).cursor:=crMyCursor);
(TPanel(Components[i]).cursor:=crMyCursor);
(TGroupBox(Components[i]).cursor:=crMyCursor);
(TTabSheet(Components[i]).cursor:=crMyCursor);


И т.д. так как компонентов на форме много

Как быть-то уважаемые ?


 
Song ©   (2002-05-12 23:06) [1]

TScreen.Cursor


 
lipskiy ©   (2002-05-13 02:27) [2]

А так нельзя?

for i:=0 to ComponentCount-1 do
if (Components[i] is TControl) then
TControl(Components[i]).Сursor:=crMyCursor;


 
Demon-777 ©   (2002-05-13 16:43) [3]

> Song © (12.05.02 23:06)

Ты имеешь ввиду
Screen.cursor:=crMyCyrsor;
Но так я уже пробовал. Курсор показывает только на самой форме,
а при наведении на листбокс или на Groupbox и др. он меняется на стандартный =(




Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.012 c
3-72997
Pavel_S
2002-04-20 16:24
2002.05.23
INTERBASE и тормоза


14-73381
SB.John
2002-04-15 11:18
2002.05.23
Как вы относитесь к вопросам типа...


14-73364
SB.John
2002-04-15 10:11
2002.05.23
Тупой вопрос


6-73327
Shumer
2002-03-07 22:43
2002.05.23
Как создать Анализатор статистики прохи сервера на Delpi


1-73271
no_login
2002-05-11 00:37
2002.05.23
Деловое предложение! Есть такой модуль... windows.pas...