Закрытие вложенного фрейма в Delphi при нажатии на TListBox без сообщений для родительской формы

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

Закрытие вложенного фрейма в Delphi при нажатии на TListBox без сообщений для родительской формы

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

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

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

(Owner as TPopup).ClosePopup;

Этот код получает родительский компонент фрейма (в данном случае TPopup) и вызывает его метод ClosePopup, что приводит к закрытию фрейма.

Пример кода, иллюстрирующий это решение:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, FMX.Classes, FMX.Controls, FMX.Forms, FMX.Types,
  FMX.ListBox, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    btnShowFrame: TButton;
    pnlFrame: TPanel;
    lbListBox: TListBox;
    procedure btnShowFrameClick(Sender: TObject);
    procedure lbListBoxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.btnShowFrameClick(Sender: TObject);
begin
  pnlFrame.Visible := True;
  pnlFrame.BringToFront;
end;

procedure TForm1.lbListBoxClick(Sender: TObject);
begin
  (Owner as TPopup).ClosePopup;
end;

end.

В этом примере на форме есть кнопка btnShowFrame, при нажатии на которую показывается фрейм в виде панели pnlFrame, содержащей TListBox lbListBox. При нажатии на lbListBox фрейм закрывается без использования сообщений для родительской формы.

В заключение, можно сказать, что закрытие вложенного фрейма в Delphi при нажатии на TListBox без сообщений для родительской формы можно осуществить, вызвав метод ClosePopup родительского компонента фрейма из обработчика события нажатия на TListBox. Это решение позволяет избежать проблем при переносе приложения на Android и усложнения кода родительской формы.

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

Закрытие вложенного фрейма в Delphi при нажатии на TListBox без сообщений для родительской формы можно осуществить, вызвав метод ClosePopup родительского компонента фрейма из обработчика события нажатия на TListBox.

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

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

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