Функции и процедуры для работы с мышью

1	Delphi. Функция FindVCLWindow( const Pos: TPoint ): TWinControl;
2	Delphi. Функция GetCaptureControl: TControl;
3	Delphi. Функция SetCaptureControl( Control: TControl );
4	Delphi. Функция CancelDrag;
5	Delphi. Функция FindDragTarget( const Pos: TPoint; AllowDisabled: Boolean ): TControl;
6	Delphi. Функция IsDragObject( Sender: TObject ): Boolean;
7	Delphi. Функция CursorToIdent( Cursor: Longint; var Ident: string): Boolean;
8	Delphi. Функция CursorToString( Cursor: TCursor ): string;
9	Delphi. Процедура GetCursorValues( Proc: TGetStrProc );
10	Delphi. Функция IdentToCursor( const Ident: string; var Cursor: Longint ): Boolean;
11	Delphi. Функция StringToCursor( const S: string ): TCursor;