Расположение окон на экране под Win10

@Lifter · Регистрация: 14.04.2012

Под Windows 10 вывожу два окна, надо чтобы GrafForm было сразу под MainForm

Pascal

1 2	GrafForm.Top := MainForm.Top + MainForm.Height; GrafForm.Left := MainForm.Left;

При этом GrafForm пикселей на 40 залезает на MainForm. Вроде как окантовка окна с заголовком не считается в MainForm.Height
Можно конечно сделать

Pascal

1	GrafForm.Top := MainForm.Top + MainForm.Height + 40;

Но при другом оформлении или под другой ОС зазор будет другим.
А как узнать полный размер окна MainForm?

@volvo · 21.12.2017, 14:41

Высота заголовка окна: GetSystemMetrics(SM_CYCAPTION)

@Lifter · 21.12.2017, 15:35 **[ТС]**

О, спасибо, помогло!
Пришлось еще воспользоваться и толщиной рамки GetSystemMetrics(SM_CXSIZEFRAME)

@volvo Супер-модератор 32979 / 21289 / 8176 Регистрация: 22.10.2011 Сообщений: 36,566 Записей в блоге: 8
	21.12.2017, 14:41	2
	Сообщение было отмечено Lifter как решение Решение Высота заголовка окна: GetSystemMetrics(SM_CYCAPTION) 1

@Lifter 1 / 1 / 0 Регистрация: 14.04.2012 Сообщений: 31
	21.12.2017, 15:35 [ТС]	3
	О, спасибо, помогло! Пришлось еще воспользоваться и толщиной рамки GetSystemMetrics(SM_CXSIZEFRAME) 0

Решение