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

← →
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 и др. он меняется на стандартный =(

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