Текущий архив: 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.016 c