Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Установка курсора

Автор: yahaha 25.5.2006, 21:22

Как установить "основной" курсор, чтобы он применялся ко всей форме (в т.ч. ко всем дочерним элементам).
Т.е. если курсор в дочернем элементе противоречит основному, должен показываться основной.

Автор: Yanis 25.5.2006, 21:30

Это ли ты имеешь ввиду?

Код

var
  i: Integer;
begin
  for i := 0 to Form1.ControlCount-1 do
    if (Form1.Controls[i] is TControl) then
      (Form1.Controls[i] as TControl).Cursor := crArrow;
end;

Автор: Rouse_ 25.5.2006, 22:20

Screen.Cursor?

Автор: Yanis 25.5.2006, 22:23

Цитата(Rouse_ @ 25.5.2006, 23:20

)

Screen.Cursor?

Я тоже об этом подумал, но что то так и не доковырялся как через него сделать всем контролам один курсор. Видимо нужно перебрать все типы курсоров Screen.Cursors[...]...

P. S. Может быть я вообще неправильно вопрос понял.

Автор: Rouse_ 25.5.2006, 22:34

Дык, сам подумай, смысл присвоения данного курсора?
Для чего? Праально - чтоб пользователь увидел что приложение занято...
А теперь подумай удивление пользователя когда тут курсор такой, а вон над той верхней кнопкой уже другой...
ЗЫ: Судя по вопросу - оно ему и нужно... Могу и ошибаться...

Автор: bems 26.5.2006, 01:11

Цитата(yahaha @ 25.5.2006, 21:22

)

если курсор в дочернем элементе противоречит основному, должен показываться основной.

Свойство дочернего элемента для того и предназначено, чтобы перекрывать основной. Просно не меняй у дочерних элементов и установи нужный в

Цитата(Rouse_ @ 25.5.2006, 22:20

)

Screen.Cursor