Определить размеры окошка

[Alex Cones]

Чем в API определить размеры окошка? А то считываю от GetCursorPos, а там общие, а мне нужны на форме (относительно 0, 0 формы).
Знаю, что нужно прибавить размер формы Height и Width, но как их определить по апишному?

P.S. Еще, кажись, нужно прибавить размер рамки окна (толщину).

[Stilet]

GetWindowRect
GetClientRect
И моя любимая: GetWindowPlacement

[DomiNick]

Немного не понял, что именно нужно...

Чем в API определить размеры окошка?

Узнавать размер/положение окна? Всего или только клиентской области?

А то считываю от GetCursorPos, а там общие, а мне нужны на форме (относительно 0, 0 формы)

Или преобразовывать координаты мыши из глобальных в координаты клиентской области своего приложения?

Тогда есть функции ClientToScreen и ScreenToClient (и в WinAPI и в TForm - названия одинаковые)

var p1, p2: TPoint;
begin
p1:=Form1.ClientToScreen(Point(0, 0));
GetCursorPos(p2);
Form1.Caption:='('+IntToStr(p2.X-p1.X)+', '+IntToStr(p2.Y-p1.Y)+')';

[Alex Cones]

Для проверки поставил пока статичные координаты, до них был хоть какой-то эффект, теперь вообще не реагируем. Координаты формы задаю при CreateWindow (400,200), после создания окна перед циклом сбора сообщений дублирую координаты в XM, НЬю D обработчике на движение мыши пишу:

Procedure LightForButtons; {Процедура подсветки кнопок   }
 Var
  Number : Byte;                     {Номер кнопки       }
  lpPoint : TPOINT;                  {Для курсора        }
  XF, YF :Integer;                   {Координаты на форме}
 Begin
  Number := 0;
  GetCursorPos(lpPoint);
  With lpPoint do
   Begin
    XF := X + XM;
    YF := Y + YM;
    If (XF>125) And
       (XF<274) And
       (YF>361) And
       (YF<395) Then {Number := 1;} Windows.Beep(400,400); {Кнопка "Сказать"}
   End;
 End;

Function WindowProc(HWND,{Процедура обработки сообщений  }
                    Msg,
                    wParam,
                    lParam: Longint): Longint;
 Stdcall;
 Begin
   Result := DefWindowProc(HWND, Msg, wParam, lParam);
   Case Msg Of

   WM_MOUSEMOVE: LightForButtons;   {Процедура подсветки кнопок   }
   WM_DESTROY  : ShutDown;          {Завершения программы         }
   End;
 End;

 { ************ Создание главного окна **************** }

  Handle := CreateWindowEx(0, 'TAliusForm', 'Alius',
         WS_OVERLAPPEDWINDOW Or
         WS_VISIBLE Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU,
         400, 200, 400, 400,
         0, 0,
         hInst, Nil);
  { ************ Создания шрифта в приложении ********** }

  hFont := CreateFont(
        -11, 0, 0, 0, 0, 0, 0, 0,
        DEFAULT_CHARSET,
        OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,
        DEFAULT_QUALITY,
        DEFAULT_PITCH Or FF_DONTCARE, 'MS Sans Serif');
   { ********** Создание изображения и дадим ему шрифт * }
  IMGMain := CreateWindow(
          'Static',
          '' ,
          WS_CHILD Or SS_BITMAP Or WS_VISIBLE,
          0, 0, 400, 400, Handle, 0, hInst, Nil);
  SendMessage(IMGMain, WM_SETFONT, hFont, 0);

  XM := 400;          { Координаты формы относительно     }
  YM := 200;          { точки 0,0                         }

Я что-то делаю не так?

[DomiNick]

Хм... Сначала показалось что это на C++... ))

Я ещё не пробовал делать на Делфи проги чисто на Win32API, экспериментирую на каком-то кривоватом "Microsoft Visual C++ 6.0"... =(

Можете весь проект сбросить?
Что именно должно получаться?)

[Alex Cones]

Я ещё не пробовал делать на Делфи проги чисто на Win32API

Я тоже. Вот и пытаюсь.

{ ****************************************************** }
{ *************** Общая информация ********************* }
{ ****************************************************** }


Program Alius;


Uses
  Windows,
  Messages,
  Commctrl;

{$R 'Icon.res'}

Var
  WinClass : TWndClass;                     {Главное окно}
  hInst : HWND;                             {Приложение  }
  Handle : HWND;                            {Локальный   }
  Msg : TMSG;                               {Сообщение   }
  hFont : HWND;                             {Шрифт       }
  IMGMain : HWND;                           {Изображение }
  XM, YM: Integer;                      {Координаты формы}
  Bmp: HBitMap;                      {Изображение IMGMain}

{ ****************************************************** }
{ ***************** Процедуры и функции **************** }
{ ****************************************************** }

Procedure ShutDown;      {Процедура завершения программы }
 Begin
   DeleteObject(hFont);                 {Снял шрифт      }
   UnRegisterClass('TAliusForm', hInst);{Удалил окно     }
   ExitProcess(hInst);                  {Закрыл программу}
 End;

{    ************************************************    }

Procedure LightForButtons; {Процедура подсветки кнопок   }
 Var
  Number : Byte;                     {Номер кнопки       }
  lpPoint : TPOINT;                  {Для курсора        }
  XF, YF :Integer;                   {Координаты на форме}
 Begin
  Number := 0;
  GetCursorPos(lpPoint);
  With lpPoint do
   Begin
    XF := X + XM;
    YF := Y + YM;
    If (XF>125) And
       (XF<274) And
       (YF>361) And
       (YF<395) Then {Number := 1;} Windows.Beep(400,400); {Кнопка "Сказать"}
   End;
 End;

Function WindowProc(HWND,{Процедура обработки сообщений  }
                    Msg,
                    wParam,
                    lParam: Longint): Longint;
 Stdcall;
 Begin
   Result := DefWindowProc(HWND, Msg, wParam, lParam);
   Case Msg Of

   WM_MOUSEMOVE: LightForButtons;   {Процедура подсветки кнопок   }
   WM_DESTROY  : ShutDown;          {Завершения программы         }
   End;
 End;

{ ****************************************************** }
{ ******************** Тело программы ****************** }
{ ****************************************************** }

 Begin
  hInst := GetModuleHandle(Nil);
   With WinClass Do
    Begin
     Style := CS_PARENTDC;                                 {Стиль главного окна }
     hIcon := LoadIcon(hInst, MAKEINTRESOURCE('MAINICON'));{Иконка              }
     lpfnWndProc := @WindowProc;                           {Обработчик сообщений}
     hInstance := hInst;
     hbrBackground := COLOR_BTNFACE + 1;                   {Цвет окна           }
     lpszClassName := 'TAliusForm';                        {Класс Окна          }
     hCursor := LoadCursor(0, IDC_ARROW);                  {Активный курсор     }
    End;
  InitCommonControls;
  RegisterClass(WinClass);                                 {Регистрация класса  }

  { ************ Создание главного окна **************** }

  Handle := CreateWindowEx(0, 'TAliusForm', 'Alius',
         WS_OVERLAPPEDWINDOW Or
         WS_VISIBLE Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU,
         400, 200, 400, 400,
         0, 0,
         hInst, Nil);
  { ************ Создания шрифта в приложении ********** }

  hFont := CreateFont(
        -11, 0, 0, 0, 0, 0, 0, 0,
        DEFAULT_CHARSET,
        OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,
        DEFAULT_QUALITY,
        DEFAULT_PITCH Or FF_DONTCARE, 'MS Sans Serif');
   { ********** Создание изображения и дадим ему шрифт * }
  IMGMain := CreateWindow(
          'Static',
          '' ,
          WS_CHILD Or SS_BITMAP Or WS_VISIBLE,
          0, 0, 400, 400, Handle, 0, hInst, Nil);
  SendMessage(IMGMain, WM_SETFONT, hFont, 0);

  XM := 400;          { Координаты формы относительно     }
  YM := 200;          { точки 0,0                         }

  { *********** Коллекционируем сообщения *************** }


  While (GetMessage(Msg, 0, 0, 0)) do
   Begin
    TranslateMessage(Msg);    {Вызов принят                }
    DispatchMessage(Msg);     {Ждите, скоро приедем        }
   End;

 End.

[DomiNick]

У меня нету какого-то 'Icon.res'...
Форма пустая, но всё работает - просто знаки перепутаны...

      XF:=X-XM;
      YF:=Y-YM;

[Alex Cones]

Ааааа!!!! Все! Спасибо! Понял свою ошибку. Исправлюсь, больше так не буду