Создать MDI окно с координатами 0,0

Материал из DRKB

Создать MDI окно с координатами 0,0[править | править код]

procedure TFormX.FormCreate(Sender: TObject);
var
  r: TRect;
  client: HWND;
begin
  client := Application.MainForm.ClientHandle;
  Windows.GetClientRect(client, r);
  MapWindowPoints(client, HWND_DESKTOP, r, 2);
  BoundsRect := r;
end;


ID: 00504