|
VI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С МЫШЬЮ
3. Функции и процедуры для работы с курсором.
Функция CursorToIdent (
Cursor: Longint;
var Ident: string): Boolean;
Модуль: Controls
Описание
Функция возвращает строковое значение предопределенной константы, определяющее вид курсора.
Числовое значение, определяющее вид курсора, передается в параметре Cursor. Строковое значение константы возвращается в параметре Ident. Если для указанного числового значения, определяющего вид курсора, есть соответствующая строковая константа, то функция возвращает True, а иначе - False.
На практике возникают ситуации, когда необходимо, чтобы функция возвращала в результате строковое значение даже в том случае, когда для числового значения вида курсора, нет предопределенной строковой константы. В данных ситуациях используйте функцию CursorToString
Значения предопределенных констант и вид соответствующих им стандартных курсоров Windows приведены в таблице:
| Константа | Значение | Вид | Примечание |
| crDefault | 0 | |
| crNone | -1 |  |
| crArrow | -2 |  |
| crCross | -3 |  |
| crIBeam | -4 |  |
| crSize | -5 |  | Только в Delphi 4 |
| crSizeNESW | -6 |  |
| crSizeNS | -7 |  |
| crSizeNWSE | -8 |  |
| crSizeWE | -9 |  |
| crUpArrow | -10 |  |
| crHourGlass | -11 |  |
| crDrag | -12 |  |
| crNoDrop | -13 |  |
| crHSplit | -14 |  |
| crVSplit | -15 |  |
| crMultiDrag | -16 |  |
| crSQLWait | -17 |  |
| crNo | -18 |  |
| crAppStart | -19 |  |
| crHelp | -20 |  |
| crHandPoint | -21 |  |
| crSizeAll | -22 |  | Только в Delphi 5 |
Пример
var
S: string;
begin
CursorToIdent(-11, S); { S := 'crHourGlass' }
MessageDlg(S, mtInformation, [mbOk], 0);
end;
[Вернуться к содержанию]
|
Книги-online