Как я получаю применимые координаты экрана в Delphi
Нет. Статические файлы HTML не изменяются. Вы могли потенциально сделать это с некоторым необычным JavaScript решение AJAXy, но это будет плохо.
3 ответа
Я не уверен, что Windows действительно работает так, как вы думаете - у меня несколько мониторов, но у них разная высота, поэтому на моем рабочем столе нет единой высота на всех мониторах.
Я использую Screen.MonitorCount и массив Screen.Monitors, чтобы определить, какой монитор содержит большую часть окна, а затем найти подходящий прямоугольник на этом экране. Свойство WorkareaRect TMonitor дает вам границы рабочей области на конкретном мониторе, что исключает любые панели задач или панели инструментов.
Вы должны использовать свойства Screen.WorkArea *:
Screen.WorkAreaRect
Screen.WorkAreaHeight
Screen.WorkAreaLeft
Screen.WorkAreaTop
Screen.WorkAreaWidth
или
Screen.Monitors[I].WorkareaRect
To determine the work area for the current form, use Monitor.WorkareaRect. e.g.
BoundsRect := Monitor.WorkareaRect;
to set the form size to the maximum area without maximising it.
You should also look at the TCustomForm.MakeFullyVisible method.
From D2006 help:
"MakeFullyVisible checks whether the form fits entirely on the specified monitor. If not, it repositions the form so that it fits, if possible."