Как сохранить фокус в всплывающем окне в Delphi с использованием FireMonkey

Delphi , Программа и Интерфейс , Модальные формы

Вопрос разработчика касается создания функционала, похожего на тегирование в Microsoft Teams, с использованием технологии FireMonkey в среде разработки Delphi. Основная проблема заключается в том, что при использовании TPopup фокус на TEdit внутри всплывающего окна теряется, и окно закрывается при получении фокуса элементом. Переход на использование TForm для всплывающего окна позволяет решить проблему закрытия, но теперь фокус теряется на TMemo основной формы.

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

Для сохранения фокуса на элементе внутри всплывающего окна и предотвращения потери фокуса на элементах основной формы, можно использовать следующий подход:

1. Использование TPopup вместо TForm: Вместо использования TForm для всплывающего окна, лучше остаться с TPopup, так как это более подходящий компонент для всплывающих окон в FireMonkey.

2. Обработка событий: Необходимо обработать событие OnClick для элементов всплывающего окна, чтобы при получении фокуса элементом, другие элементы интерфейса не теряли возможность получить фокус (например, окно закрывалось бы при нажатии вне его области). Для этого можно использовать специальное поведение всплывающих окон, где они всегда удерживают фокус на себе, если пользователь кликнул на один из элементов внутри окна.

3. Сохранение фокуса внутри всплывающего окна: Используйте таймер для проверки фокуса через небольшой интервал времени. Если фокус был потерян (пользователь кликнул вне всплывающего окна), то окно закрывается. Если клик внутри всплывающего окна (например, по TEdit), то таймер отключается до тех пор, пока пользователь не кликнет вне окна.

// Основная форма
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if not PopupForm.ContainsPoint(X, Y) then
    PopupForm.Hide;
end;

procedure TMainForm.ShowPopup;
begin
  PopupForm.BringToFront;
  PopupForm.Show;
  PopupForm.SetFocus; // Ставим фокус на всплывающее окно
end;

// Всплывающее окно
procedure TPopupForm.FormActivate(Sender: TObject);
begin
  PopupTimer.Enabled := False; // Отключаем таймер, так как всплывающее окно получило фокус
end;

// Таймер для проверки фокуса всплывающего окна
procedure TMainForm.PopupTimerTimer(Sender: TObject);
begin
  PopupForm.Hide;
  PopupTimer.Enabled := False;
end;

// Пример кода для обработки событий элементов всплывающего окна
procedure TPopupForm.TEdit1Click(Sender: TObject);
begin
  PopupTimer.Enabled := False; // Отключаем таймер, так как пользователь кликнул по Edit
end;

// При инициализации всплывающего окна
PopupForm := TPopup.Create(Self);
PopupForm.OnShow :=
  procedure
  begin
    PopupForm.SetFocus; // Ставим фокус на первое доступное поле
  end;

PopupForm.PopupTimer := TTimer.Create(Self);
PopupForm.PopupTimer.Interval := 100; // Время ожидания перед закрытием всплывающего окна, если фокус потерян
PopupForm.PopupTimer.OnTimer := PopupForm.PopupTimerTimer;

Альтернативное решение

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

// Пример кода для использования панели вместо всплывающего окна
procedure TMainForm.ShowPopupPanel;
begin
  PopupPanel.BringToFront;
  PopupPanel.Visible := True;
  PopupPanel.SetFocus; // Ставим фокус на панель
end;

procedure TMainForm.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if not PopupPanel.ContainsPoint(X, Y) then
    PopupPanel.Visible := False;
end;

Заключение

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

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

Context: Вопрос касается реализации функционала тегирования в Delphi с использованием FireMonkey, где необходимо решить проблемы с фокусом и закрытием всплывающих окон при взаимодействии с элементами пользовательского интерфейса.

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

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

:: Главная :: Модальные формы ::