Form zentriert anzeigen

[lbccaleb]

Oder wenn du den OI nicht nutzen möchtest (aus welchem Grund auch immer^^), dann kannst es auch per Code machen

Delphi-Quellcode:

uses
  ...
  Windows;

function CenterMainWnd(WindowWidth, WindowHeight: integer; MainhWnd: HWND): HRESULT;
var
  x, y: integer;
  begin;
    Result := S_False;
    x := GetSystemMetrics(SM_CXSCREEN);
    y := GetSystemMetrics(SM_CYSCREEN);
      if (x > 0) and (y > 0) then
        if MoveWindow(MainhWnd, (x div 2) - (WindowWidth div 2), (y div 2) - (WindowHeight div 2), WindowWidth, WindowHeight, True) then
          begin
            PostMessage(MainhWnd, WM_MOVE, ((x div 2) - (WindowWidth div 2)), ((y div 2) - (WindowHeight div 2)));
            Result := S_OK;
          end;
  end;

Aufruf:

CenterMainWnd(640, 480, Form1.Handle);