Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Cursor   Найти похожие ветки 

 
3APA3A ©   (2003-07-20 01:04) [0]

Есть форма и на ней куча компонентов. Как покороче поменять форму курсора над всей формой( то есть не писать для каждого компонента ...Cursor:=crHourGlass;....)


 
Marser ©   (2003-07-20 01:33) [1]

Коряво, но можно вот так:
var i:integer;
begin
for i:=0 to form1.controlcount-1 do
form1.controls[i].cursor:=crHourGlass;
end;
Хотя, может, есть что-то попроще.


 
3APA3A ©   (2003-07-20 01:41) [2]

Нормально... главное не каждому компоненту "ручками" присваивать...


 
3APA3A ©   (2003-07-20 03:39) [3]

Нет... проверил - не катит...Как выяснилось =), свойства ControlCount и Controls появились только у TWinControl, который
TWinControl=Class(TControl), то есть если на форме панель(например) и в этой панели Edit, то свойство Controls даст мне только ссылку на панель, а так как она будет приведена к типу
TControl, то массив ее контролов мне уже не достать, а так бы очень милая рекурсия получилась... Если я что-то не то написал - поправьте меня pls.. =)


 
Kair ©   (2003-07-20 05:58) [4]

Это кажется над всеми формами, но если у тебя только одна...:
Screen.Cursor:=X;
где Х - отричательное число (от -32 до 0, это для стандартных курсоров). Вроде бы так...


 
Morfein ©   (2003-07-20 09:18) [5]


Screen.Cursor:=crHourGlass;



 
Marser ©   (2003-07-20 09:36) [6]


> Screen.Cursor:=crHourGlass;

Забыл :-( Надо было идти спать...



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
4-10524
xn0bys
2003-06-02 16:29
2003.08.04
Как сделать так, чтоб использование процессора было не 100%


3-10136
elshad_s
2003-07-14 16:07
2003.08.04
Как получить список ключевых полей в таблице


1-10249
Alex_x
2003-07-21 10:07
2003.08.04
Помогите нарисаовать график в Excele


1-10297
starik30
2003-07-22 12:17
2003.08.04
Изменение количества выделенных символов в TEdit


14-10381
cjiohobaji
2003-07-15 13:27
2003.08.04
взять перейти в DataSet