Перейти на главную   
  helloworld.ru - документация и книги по программированию  
helloworld.ru - документация и книги по программированию
    главная     хостинг    
Поиск по сайту:  
Смотрите также
Языки программирования
C#
MS Visual C++
Borland C++
C++ Builder
Visual Basic
Quick Basic
Turbo Pascal
Delphi
JavaScript
Java
PHP
Perl
Assembler
AutoLisp
Fortran
Python
1C

Интернет-технологии
HTML
VRML
HTTP
CGI
FTP
Proxy
DNS
протоколы TCP/IP
Apache

Web-дизайн
HTML
Дизайн
VRML
PhotoShop
Cookie
CGI
SSI
CSS
ASP
PHP
Perl

Программирование игр
DirectDraw
DirectSound
Direct3D
OpenGL
3D-графика
Графика под DOS

Алгоритмы
Численные методы
Обработка данных

Сис. программирование
Драйверы

Базы данных
MySQL
SQL

Другое

Хостинг


Друзья
demaker.ru
Реклама

Лучший хостинг. Аренда серверов




helloworld.ru

VI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С МЫШЬЮ

3. Функции и процедуры для работы с курсором.


Функция CursorToIdent( Cursor: Longint; var Ident: string): Boolean;

Модуль: Controls

Описание
Функция возвращает строковое значение предопределенной константы, определяющее вид курсора. Числовое значение, определяющее вид курсора, передается в параметре Cursor. Строковое значение константы возвращается в параметре Ident. Если для указанного числового значения, определяющего вид курсора, есть соответствующая строковая константа, то функция возвращает True, а иначе - False. На практике возникают ситуации, когда необходимо, чтобы функция возвращала в результате строковое значение даже в том случае, когда для числового значения вида курсора, нет предопределенной строковой константы. В данных ситуациях используйте функцию CursorToString

Значения предопределенных констант и вид соответствующих им стандартных курсоров Windows приведены в таблице:

КонстантаЗначениеВидПримечание
crDefault0 
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;


[ Оглавление ]









helloworld.ru © 2001-2021
Все права защищены