| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Присваивание одного курсора всем компонентам формы
Demon-777 © (2002-05-12 22:45:00)Уважаемые мастера.
В моей программе необходимо свой курсор.
Как всем компонентам на форме присвоить его ?
Неужели так =(
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);
И т.д. так как компонентов на форме много
Как быть-то уважаемые ?
Demon-777 (2002-05-13 16:43:00) [1]> Song © (12.05.02 23:06)
Ты имеешь ввиду
Screen.cursor:=crMyCyrsor;
Но так я уже пробовал. Курсор показывает только на самой форме,
а при наведении на листбокс или на Groupbox и др. он меняется на стандартный =(
lipskiy (2002-05-13 02:27:00) [2]А так нельзя?
for i:=0 to ComponentCount-1 do
if (Components[i] is TControl) then
TControl(Components[i]).Сursor:=crMyCursor;
Song (2002-05-12 23:06:00) [3]TScreen.Cursor
| |
