Заносит по адресу wh дескриптор окна, которому принадлежит точка pt на экране.


int _FindWindowP(WHANDLE FAR wh, Point pt) WHANDLE FAR wh; /* Указатель на дескриптор окна. / Point pt; / Координаты точки в пикселях. */

Примечания

_FindWindowP( ) возвращает целое число, указывающее, в какой именно части окна расположена данная точка. Перечень возможных возвращаемых значений смотрите в теме Процедура библиотеки API _FindWindow( ).

Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.

Пример

В следующем примере программа ждет нажатия левой кнопки мыши, а затем с помощью _FindWindowP( ) получает дескриптор окна, для которого нажата кнопка мыши.

Код Visual FoxPro

	Copy Code
WAIT WINDOW "Click Mouse In Window" NOWAIT SET LIBRARY TO FINDWINP

Код C

	Copy Code
#include <pro_ext.h> void putLong(long n, int width) { Value val; val.ev_type = 'I'; val.ev_long = n; val.ev_width = width; _PutValue(&val); } FAR FindWindowEx(ParamBlk FAR parm) { WHANDLE wh; Point mousePos; int where; // Get mouse position when left button goes down while (_InKey(0, MOUSEACTIVE \| HIDECURSOR) != 151); while (!_MousePosP(&mousePos)); switch (where = _FindWindowP(&wh, mousePos)) { case inBorder: _PutStr("\nMouse down inBorder"); break; case inHelp: _PutStr("\nMouse down inHelp"); break; case inContent: _PutStr("\nMouse down inContent"); break; case inDrag: _PutStr("\nMouse down inDrag"); break; case inGrow: _PutStr("\nMouse down inGrow"); break; case inGoAway: _PutStr("\nMouse down inGoAway"); break; case inZoom: _PutStr("\nMouse down inZoom"); break; case inVUpArrow: _PutStr("\nMouse down inVUpArrow"); break; case inVDownArrow: _PutStr("\nMouse down inVDownArrow"); break; case inVPageUp: _PutStr("\nMouse down inVPageUp"); break; case inVPageDown: _PutStr("\nMouse down inVPageDown"); break; case inVThumb: _PutStr("\nMouse down inVThumb"); break; case inHUpArrow: _PutStr("\nMouse down inHUpArrow"); break; case inHDownArrow: _PutStr("\nMouse down inHDownArrow"); break; case inHPageUp: _PutStr("\nMouse down inHPageUp"); break; case inHPageDown: _PutStr("\nMouse down inHPageDown"); break; case inHThumb: _PutStr("\nMouse down inHThumb"); break; case inMenuBar: _PutStr("\nMouse down inMenuBar"); break; default: _PutStr("\nMouse down someplace else"); break; } _GlobalToLocalP(&mousePos, wh); _PutStr("\nPosition relative to window:"); putLong(mousePos.v, 5); _PutChr(' '); putLong(mousePos.h, 5); } FoxInfo myFoxInfo[] = { {"ONLOAD", FindWindowEx, CALLONLOAD, ""}, }; FoxTable _FoxTable = { (FoxTable FAR ) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };

Copy Code

#include <pro_ext.h>

void putLong(long n, int width)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = width;

   _PutValue(&val);
}

FAR FindWindowEx(ParamBlk FAR *parm)
{
   WHANDLE wh;
   Point mousePos;
   int where;

//  Get mouse position when left button goes down
   while (_InKey(0, MOUSEACTIVE | HIDECURSOR) != 151);
   while (!_MousePosP(&mousePos));

   switch (where = _FindWindowP(&wh, mousePos))
   {
      case inBorder:
         _PutStr("\nMouse down inBorder"); break;
      case inHelp:
         _PutStr("\nMouse down inHelp"); break;
      case inContent:
         _PutStr("\nMouse down inContent"); break;
      case inDrag:
         _PutStr("\nMouse down inDrag"); break;
      case inGrow:
         _PutStr("\nMouse down inGrow"); break;
      case inGoAway:
         _PutStr("\nMouse down inGoAway"); break;
      case inZoom:
         _PutStr("\nMouse down inZoom"); break;
      case inVUpArrow:
         _PutStr("\nMouse down inVUpArrow"); break;
      case inVDownArrow:
         _PutStr("\nMouse down inVDownArrow"); break;
      case inVPageUp:
         _PutStr("\nMouse down inVPageUp"); break;
      case inVPageDown:
         _PutStr("\nMouse down inVPageDown"); break;
      case inVThumb:
         _PutStr("\nMouse down inVThumb"); break;
      case inHUpArrow:
         _PutStr("\nMouse down inHUpArrow"); break;
      case inHDownArrow:
         _PutStr("\nMouse down inHDownArrow"); break;
      case inHPageUp:
         _PutStr("\nMouse down inHPageUp"); break;
      case inHPageDown:
         _PutStr("\nMouse down inHPageDown"); break;
      case inHThumb:
         _PutStr("\nMouse down inHThumb"); break;
      case inMenuBar:
         _PutStr("\nMouse down inMenuBar"); break;
      default:
         _PutStr("\nMouse down someplace else"); break;
   }
   _GlobalToLocalP(&mousePos, wh);
   _PutStr("\nPosition relative to window:");
   putLong(mousePos.v, 5);
   _PutChr(' ');
   putLong(mousePos.h, 5);
}

FoxInfo myFoxInfo[] = {
   {"ONLOAD", FindWindowEx, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Смотрите также

Справочное руководство

Процедура библиотеки API _FindWindow( )
Процедура библиотеки API _MousePos( )

Прочие ресурсы

Конструкции библиотеки API
Доступ к API Visual FoxPro