Вызов функций из различных дочерних MDI окон

Delphi , Программа и Интерфейс , MDI приложения

var
  MyMDIForm: TForm;
begin
  MyMDIForm:=ActiveMDIChild;
  MyMDIForm.DefaultSize;
end;

или

TChild(ActiveMDIChild).SomeMethod; 

Рады работать с формами MDI (Multiple Document Interface) в Delphi!

Вы пытаетесь вызывать методы из различных дочерних окон MDI в основном окне MDI. Есть несколько способов достичь этого, и я покрою два общих подхода:

Подход 1: Доступ к активному дочернему форму

В вашем первом примере вы используете ActiveMDIChild для получения ссылки на текущее активное дочернее окно и затем присваиваете ее локальной переменной MyMDIForm. Однако, нет необходимости присваивать ее явно; можно использовать свойство ActiveMDIChild напрямую. Вот как это сделать:

procedure MyMethod;
begin
  ActiveMDIChild.DefaultSize;
end;

Подход 2: Использование класса дочернего форм

В вашем втором примере вы используете общий класс TChild для доступа к методам дочернего форм. Хотя этот подход работает, он не очень конкретен или гибок.

Если у вас есть набор дочерних форм, которые наследуют от общего базового класса (например, TChildForm), вы можете использовать полиморфизм для вызова их методов:

type
  TChildForm = class(TForm)
    procedure SomeMethod; virtual;
  end;

procedure TForm1.MyMethod;
var
  Child: TChildForm;
begin
  Child := ActiveMDIChild as TChildForm;
  if Assigned(Child) then
    Child.SomeMethod;
end;

В этом примере TChildForm - это базовый класс для всех ваших дочерних форм, которые имеют процедуру SomeMethod. Затем вы можете использовать полиморфизм для вызова метода на любом дочернем форм, который наследует от TChildForm.

Никогда не забывайте проверять, является ли активное дочернее окно присвоенным перед попыткой доступа к его методам или свойствам.

Надеюсь, это поможет! Пожалуйста, дайте мне знать, если у вас есть какие-либо дальнейшие вопросы.

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

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

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

:: Главная :: MDI приложения ::