Главная страница
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.011 c
1-73300
dlp
2002-05-11 20:45
2002.05.23
важный вопрос


6-73343
Devid
2002-03-10 18:34
2002.05.23
Как игнорировать ошибку у ClientSocket


1-73151
chsv
2002-05-07 21:34
2002.05.23
работа с полиморфными потоками в делфи


14-73406
SPeller
2002-04-13 10:13
2002.05.23
MySQL


1-73307
com6
2002-05-12 08:09
2002.05.23
Как открыть текстовой файл из проги в Delphi в нотепаде