Компонент Delphi StringGrid









                                           ГЛАВНАЯ           СВОЙСТВА           СОБЫТИЯ           ПРИЁМЫ  ПРОГРАММИРОВАНИЯ




Свойства StringGrid
11. Align
12. Anchors
13. BiDiMode
15. ColCount
16. RowCount
17. Color
19. Ctl3D
10. Cursor
15. DragKind
16. DragMode
17. Enabled
19. FixedCols
20. FixedRows
21. Font
23. Height
26. HelpType
27. Hint
28. Left
29. Name
30. Options
31. PopupMenu
33. ShowHint
34. TabOrder
35. TabStop
36. Tag
37. Top
38. Visible
39. Width




StringGrid Delphi

Свойство Cursor




   Свойство Delphi Cursor управляет видом курсора, который будет показан при движении мышки над компонентом. Свойство Cursor компонента StringGrid в Инспекторе Объектов является выпадающим списком, содержащим графическое изображение и название в системе соответствующего курсора. Название курсора - это константа типа Integer.

   Есть несколько зарезервированных курсоров, соответствующих константам Cursor со значениями от минус два (-2) до минус 22 (-22). Их мы и можем видеть, открыв выпадающий список в Инспекторе объектов:

КурсорЧисловое    значение  Символическое значение
-2crArrow
-3crCross
-4crIBeam
-5crSizeAll
-6crSizeNESW
-7crSizeNS
-8crSizeNWSE
-9crSizeWE
-10crUpArrow
-11crHourGlass
-12crDrag
-13crNoDrop
-14crHSplit
-15crVSplit
-16crMultiDrag
-17crSQLWait
-18crNo
-19crAppStart
-20crHelp
-21crHandPoint
-22crSizeAll


   Установленное по умолчанию значение курсора равно crDefault, оно не отражено в таблице курсоров, так как совпадает по изображению и числовому значению с курсором crArrow. Также, как следует из таблицы, курсоры с числовыми значениями -5 и -22 имеют одинаковые символические значения и графические изображения.

   Есть ещё одно зарезервированное числовое значение для курсора: -1. Курсор со значением -1 от остальных курсоров отличается тем, что не имеет графического изображения. Он может применяться в тех случаях, когда курсор нужно скрыть, например, чтобы его графический символ не мешал при выполнениии некоторых операций с графикой или текстом.

   Изображения курсоров хранятся в файлах с расширениями *.cur и *.ani (анимированные курсоры). Существуют многочисленные коллекции курсоров, также курсор для своей программы можно создать и самому с помощью специализированных программ.

   Чтобы использовать новый курсор в своей программе, нужно обратиться к свойствам такого глобального объекта Delphi как Screen. Объект Screen имеет свойство Cursors. Это массив, имеющий вышеприведённые зарезервированные значения в диапазоне от -1 до -22. Можно подменить любое из них на изображение своего курсора, но лучше новому курсору присвоить значение, не совпадающее с зарезервированными.

   Итак, выбрав новые курсоры, нужно сохранить их в файлы, например, NewCursor1.cur, NewCursor2.cur, а затем загрузить эти файлы в ячейки массива Screen.Cursors, с помощью функции LoadCursorFromFile:

Screen.Cursors[1]:=LoadCursorFromFile('NewCursor1.cur'); Screen.Cursors[2]:=LoadCursorFromFile('NewCursor2.cur');

   Предварительно можно создать глобальные числовые константы:

const NewCursor1 = 1;
const NewCursor2 = 2;

   Теперь для того, чтобы при необходимости компонент StringGrid1 приобрёл новый курсор, например NewCursor1.cur, нужно присвоить его номер (1) свойству Cursor таблицы:

StringGrid1.Cursor:=1;
   или
StringGrid1.Cursor:=NewCursor1;

   Эти манипуляции с курсорами компонентов возможны, если собственное свойство Cursor объекта Screen равно crDefault. Если же присвоить ему другое значение, то все компоненты приложения приобретут соответствующий курсор, и изменить его с помощью свойства Cursor компонентов будет невозможно.


Читайте также:
  • Свойство DragCursor StringGrid Delphi

    Сайт из коллекции Компоненты Delphi    

    Карта сайта