constructor TMainForm.Create(AOwner: TComponent);
beginInherited Create(AOwner);
SetWindowLong(ClientHandle, GWL_EXSTYLE,
GetWindowLong(ClientHandle,
GWL_EXSTYLE) or WS_EX_CLIENTEDGE);
SetWindowPos(ClientHandle, 0, 0, 0, 0, 0,
swp_DrawFrame or swp_NoMove or swp_NoSize
or swp_NoZOrder);
end;
Текст с кодом на языке Delphi, который предназначен для придания более трехмерного вида формам MDI (Multiple Document Interface). Класс TMainForm создается с помощью конструктора Create, который инициализирует форму и устанавливает ее стиль окна.
Вот разбивка того, что код делает:
Inherited Create(AOwner);: эта строка вызывает метод Create из родительского класса, передавая компонент AOwner в качестве аргумента.
SetWindowLong(ClientHandle, GWL_EXSTYLE, GetWindowLong(ClientHandle, GWL_EXSTYLE) or WS_EX_CLIENTEDGE);: эта строка устанавливает расширенный стиль окна клиента с помощью функции SetWindowLong. Она получает текущий расширенный стиль окна с помощью GetWindowLong и затем OR-ит его с WS_EX_CLIENTEDGE, что добавляет трехмерное представление к рамке.
SetWindowPos(ClientHandle, 0, 0, 0, 0, 0, swp_DRAWFRAME or swp_NOMOVE or swp_NOSIZE or swp_NOZORDER);: эта строка устанавливает позицию окна с помощью функции SetWindowPos. Она указывает, что окно должно быть нарисовано с рамкой (swp_DRAWFRAME), и запрещает перемещение (swp_NOMOVE), изменение размера (swp_NOSIZE) и изменения порядка (swp_NOZORDER) при изменении размера.
Установление этих стиля окна позволяет формам MDI иметь более трехмерное представление, что может улучшить общий пользовательский опыт. Однако код может не работать корректно в всех сценариях или на всех платформах, поэтому необходимо тщательно тестировать его и рассматривать альтернативные решения, если нужно.
Вот некоторые предложения по улучшению:
Вместо использования SetWindowLong и GetWindowLong, можно использовать свойство TForm.Style для установки стиля окна более явно.
Рассмотрите добавление рамки вокруг формы вместо зависимости от трехмерной рамки. Это можно сделать с помощью свойств BorderWidth и BorderStyle формы.
Может потребоваться изменение флага swp_DRAWFRAME, в зависимости от конкретных требований.
Помните, что этот код является специфичным для Delphi и может не работать в других языках программирования или средах без модификаций.
В статье описывается способ придания MDI-формам большей трехмерности с помощью изменения стиля окна и позиционирования.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал