В программировании на Delphi получение размера окна — обычная задача. Если вам нужно динамически изменить размер элементов управления, настроить макет или реализовать собственное управление окнами, знание размера окна имеет решающее значение. В этой статье мы рассмотрим различные методы получения размера окна в приложении Delphi, а также приведем примеры кода.

Метод 1: использование свойств ширины и высоты формы.
Самый простой метод — использовать свойства Widthи Heightсамой формы. Эти свойства представляют размеры клиентской области, исключая рамку окна. Вот пример:

var
  FormWidth, FormHeight: Integer;
begin
  FormWidth := Form1.Width;
  FormHeight := Form1.Height;
end;

Метод 2: использование функции API GetWindowRect
Функция GetWindowRectиз API Windows может использоваться для получения размеров окна, включая рамку. Этот метод требует модуля Windowsи использует дескриптор формы. Вот пример:

uses
  Windows;
var
  Rect: TRect;
begin
  GetWindowRect(Form1.Handle, Rect);
  FormWidth := Rect.Right - Rect.Left;
  FormHeight := Rect.Bottom - Rect.Top;
end;

Метод 3: использование объекта «Экран»
Delphi предоставляет объект Screen, который предоставляет информацию об экране и его размерах. Обращаясь к объекту Screen, вы можете получить размер основного монитора или отдельного монитора, если у вас настроено несколько мониторов. Вот пример:

var
  ScreenWidth, ScreenHeight: Integer;
begin
  ScreenWidth := Screen.Width;
  ScreenHeight := Screen.Height;
end;

Метод 4. Использование функции API GetClientRect
Функция GetClientRectиз Windows API позволяет получить размеры клиентской области окна, исключая рамку. Вот пример:

uses
  Windows;
var
  Rect: TRect;
begin
  GetClientRect(Form1.Handle, Rect);
  FormWidth := Rect.Right - Rect.Left;
  FormHeight := Rect.Bottom - Rect.Top;
end;

В этой статье мы рассмотрели различные методы получения размера окна в Delphi. В зависимости от ваших конкретных требований вы можете выбрать метод, который лучше всего соответствует вашим потребностям. Независимо от того, предпочитаете ли вы использовать свойства формы, функции Windows API или объект Screen, Delphi предоставляет различные возможности для точного получения размеров окна.

Имея четкое представление о методах получения размера окна, вы можете улучшить свои приложения Delphi, реализуя динамическое изменение размера, пользовательские макеты или функции персонализированного управления окнами.