окно по центру экрана (delphi)

[Merano]

Здравствуйте.
Помогите, пожалуйста, решить проблему.
Пишу на winapi, создаю окно через CreateWindow(), и никак не получается создать окно по центру экрана... Пробовал через флаг DC_CENTER, и через функцию GetSystemMetrics, вот код:

var
 x, y : integer;
begin
 x := getsystemmetrics(sm_cxscreen);
 y := getsystemmetrics(sm_cyscreen);

 window := createwindow('wndclass', 'main', ws_popup or ws_visible, x, y, 350, 250, 0, 0, hinstance, nil);

setwindowpos(window, x, y, 0, w, h, swp_nozorder or swp_nomove);

окно вообще пропадает...

В winapi я новичок, поэтому решительно ничего не понимаю

[p51x]

окно вообще пропадает...

А должно быть по другому? Ваши слова противоречат действиям.

Подумайте, что вы делаете:
1.

 x := getsystemmetrics(sm_cxscreen);
 y := getsystemmetrics(sm_cyscreen);

Получили размеры экрана, например, 1920х1080

2.

 window := createwindow('wndclass', 'main', ws_popup or ws_visible, x, y, 350, 250, 0, 0, hinstance, nil);

Создали окно с начальным положением 1920х1080. Где это ?

[Stilet]

createwindow('wndclass', 'main', ws_popup or ws_visible, (x div 2)-(350 div 2), (y div 2)-(250 div 2), 350, 250, 0, 0, hinstance, nil);

Если с WinAPI по началу не заладилось программируй в APIx2 - хотя бы посмотришь как правильно делать оконки.

[s-andriano]

Идея, безусловно, правильная (а в данном случае правильная идея только одна), и оптимизировать здесь совершенно бессмысленно, но все-таки, для эстетики:

createwindow('wndclass', 'main', ws_popup or ws_visible, (getsystemmetrics(sm_cxscreen) - WindowWidth) div 2, (getsystemmetrics(sm_cyscreen) - WindowHeigh) div 2, WindowWidth, WindowHeigh, 0, 0, hinstance, nil);

[Merano]

Огромное спасибо всем!
Получилось
На примерах мне легче понимать все, а в интернете почти отсутствуют примеры работы на Delphi, в WinAPI...
Или я плохо ищу...

Stilet, спасибо за совет, буду разбираться

[p51x]

а в интернете почти отсутствуют примеры работы на Delphi, в WinAPI...

Прочитайте еще аз мой пост. Тут дело совсем не в примерах и вообще программировании.

Вот представьте, что вы хотите нарисовать точку посеридине листа. Берете линейку...

[s-andriano]

Сообщение от Merano

///а в интернете почти отсутствуют примеры работы на Delphi, в WinAPI...
Или я плохо ищу...

Угу.
Искать нужно не по "Delphi WinAPI", а просто по "WinAPI" - названия функций и логика их вызова не зависят от конкретного языка, для С же найти любые примеры не составляет никакого труда.

Хотя, в данном случае p51x прав: дело здесь не в WinAPI, а в банальной арифметике.

[Exception]

function CenterDialogEx(hWnd: HWND; fAncestor: Boolean): Boolean;
var
  hAncestor: THandle;
  hwndRect : TSize;
  dlgRect  : TRect;
  ancRect  : TRect;
  dlgSize  : TSize;
  pntSize  : TSize;
  workArea : TRect;
  workSize : TSize;
begin
  GetWindowRect(hWnd, dlgRect);
  dlgSize.cx := dlgRect.Right - dlgRect.Left;
  dlgSize.cy := dlgRect.Bottom - dlgRect.Top;
  hwndRect.cx := (GetSystemMetrics(SM_CXSCREEN) - dlgSize.cx) div 2;
  hwndRect.cy := (GetSystemMetrics(SM_CYSCREEN) - dlgSize.cy) div 2;
  if fAncestor then
  begin
    hAncestor := GetParent(hWnd);
    if (hAncestor <> 0) then
    begin
      if (IsWindowVisible(hAncestor) and (not IsIconic(hAncestor))) then
      begin
        GetWindowRect(hAncestor, ancRect);
        pntSize.cx := ancRect.Right - ancRect.Left;
        pntSize.cy := ancRect.Bottom - ancRect.Top;
        SystemParametersInfoW(SPI_GETWORKAREA, 0, @workArea, 0);
        workSize.cx := workArea.Right - workArea.Left;
        workSize.cy := workArea.Bottom - workArea.Top;
        hwndRect.cx := ancRect.Left + ((pntSize.cx - dlgSize.cx) div 2);
        if (hwndRect.cx < 0) then
          hwndRect.cx := 0
        else
        if ((hwndRect.cx + dlgSize.cx) > workSize.cx) then
          hwndRect.cx := workSize.cx - dlgSize.cx;
        hwndRect.cy := ancRect.Top + ((pntSize.cy - dlgSize.cy) div 2);
        if (hwndRect.cy < 0) then
          hwndRect.cy := 0
        else
        if ((hwndRect.cy + dlgSize.cy) > workSize.cy) then
          hwndRect.cy := workSize.cy - dlgSize.cy;
      end;
    end;
  end;
  Result := SetWindowPos(hWnd, 0, hwndRect.cx, hwndRect.cy, 0, 0,
    SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
end;