Главная страница
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.013 c
3-73083
Sirus
2002-04-26 14:22
2002.05.23
Можно ли собрать одним SQL запросом данные из разных баз


4-73439
Alexander
2002-03-21 12:29
2002.05.23
Как изменить шрифт у какого-либо элемента?


4-73434
SPeter
2002-03-14 13:16
2002.05.23
Помогите пожалуйста с сообщениями.


7-73429
avk
2002-02-22 10:43
2002.05.23
screenshot and DOS


1-73167
Kopachev
2002-05-14 01:21
2002.05.23
Как напечатать текст