Решение проблем вложенных форм в Delphi: фокус и взаимодействие

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

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

Варианты вложения форм

В Delphi есть два основных способа вложения одной формы в другую:

1. Обычные формы (fsNormal)

Пример создания формы внутри другой формы:

with TForm.Create(Self) do
begin
  Parent := Self;
  Caption := 'Test 1';
  Width := 350;
  Height := 200;
  Show;
end;

Проблема заключается в том, что такие формы не ведут себя должным образом при взаимодействии с ними. Фокус получается только при клике на заголовок формы или при использовании метода Form.SetFocus. Аналогичные проблемы возникают и с элементами управления, находящимися внутри таких форм. Формы будут отображаться поверх TWinControls или TGraphicControl, которые могут содержаться в родительской форме.

2. MDI формы (fsMDIChild)

Использование MDI форм является более правильным подходом:

Form.Style := fsMDIForm;

with TForm.Create(Self) do
begin
  Parent := Self;
  Caption := 'Test 1';
  Width := 350;
  Height := 200;
  FormStyle := fsMDIChild;
  Show;
end;

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

Проблемы и решения

Для решения описанных проблем можно использовать следующие подходы:

• Переопределение OnMouseDown события для вложенной формы, чтобы она получала фокус при клике:

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  BringToFront;
  SetFocus;
end;

• Использование событий окон для предотвращения выхода формы за пределы родительской формы:

procedure TForm2.WMMoving(var msg: TWMMoving);
var
  moveArea: TRect;
begin
  BringToFront;
  moveArea := Form1.BoundsRect;
  // Ограничение перемещения формы в пределах родительской формы
  // ...
end;

• Присваивание свойства TTopMost для обеспечения, что форма всегда находится сверху других окон:

procedure SetTopMost(Form: TForm; TopMost: Boolean);
var
  HWnd: HWND;
begin
  HWnd := Form.Handle;
  SetWindowPos(HWnd, (TopMost) ? HWND_TOPMOST : HWND_NOTOPMOST, 0, 0, 0, 0,
    SWP_NOSIZE or SWP_NOZORDER);
end;

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

Заключение

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

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

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

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

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

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