"Перенос формы в нижний правый угол основной формы в Delphi: подробное руководство"

Delphi , Программа и Интерфейс , Формы

Перенос формы в нижний правый угол основной формы в Delphi: подробное руководство

При разработке приложений на Delphi может возникнуть потребность в переносе дочерней формы в определённое место относительно основной формы. В частности, задача может состоять в том, чтобы разместить форму в нижнем правом углу основной формы. В этом руководстве мы рассмотрим, как это можно сделать, используя Object Pascal.

Описание проблемы

Разработчик столкнулся с проблемой, когда ему необходимо было переместить форму, созданную во время выполнения, в нижний правый угол основной формы. Пример кода, который демонстрирует попытку центрирования формы на экране, не решает поставленной задачи.

Решение проблемы

Для решения этой задачи нужно установить свойства Left и Top формы так, чтобы они соответствовали координатам нижнего правого угла основной формы. Важно учитывать размеры формы и основной формы, чтобы форма не выходила за её границы.

Варианты размещения формы

1. Форма является дочерней по отношению к основной форме (Form1):

pascal F1.Parent := Form1; // Устанавливаем основную форму в качестве родителя F1.Left := Form1.ClientWidth - F1.Width; // Позиционируем форму по горизонтали F1.Top := Form1.ClientHeight - F1.Height; // Позиционируем форму по вертикали

1. Форма не имеет родительской формы и должна располагаться с учётом границ основной формы:

pascal F1.Left := ClientOrigin.X + ClientWidth - F1.Width; // Позиционируем форму по горизонтали F1.Top := ClientOrigin.Y + ClientHeight - F1.Height; // Позиционируем форму по вертикали

Здесь ClientOrigin - это начальная точка экрана, где расположена основная форма, а ClientWidth и ClientHeight - это размеры основной формы.

Важные замечания

• При использовании poDesigned для свойства Position формы, она будет позиционироваться относительно начальных значений Left и Top.
• Если основная форма запускается на мониторе с меньшим разрешением, форма может оказаться вне видимой области.
• В новых версиях Delphi, где используется встроенный дизайнер форм, позиционирование формы по poDesigned может вести себя иначе, чем в старых версиях, где дизайнер был отдельным окном.

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  F1 : TForm;
begin
  F1 := TForm.Create(nil);
  F1.Height := 300;
  F1.Width := 300;
  F1.Position := poDesigned; // Устанавливаем позиционирование по дизайну
  F1.Parent := Self; // Устанавливаем основную форму (Form1) в качестве родителя
  F1.Left := Self.ClientWidth - F1.Width; // Позиционируем в правом нижнем углу основной формы
  F1.Top := Self.ClientHeight - F1.Height;
  F1.Show;
end;

Заключение

В данном руководстве мы рассмотрели, как можно переместить форму в нижний правый угол основной формы в Delphi, используя Object Pascal. Важно учитывать размеры форм и их взаимное расположение, чтобы форма корректно отображалась на экране.

Этот пример кода можно использовать в качестве шаблона для решения подобных задач в ваших проектах на Delphi.

Создано по материалам из источника по ссылке.

В руководстве рассматривается процесс перемещения формы в нижний правый угол основной формы в среде разработки Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Формы ::