Delphi - Передача параметров от наследуемой к Родительской форме

[iskurt]

Всем доброго здоровья.

Помогите разобраться с передачей переменных от Наследуемых форм в Родительские (если я правильно называю вещи).
Есть форма - она является начальным шаблоном для создаваемых fsMDIChild

unit child;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
  acAlphaImageList, Vcl.StdCtrls, sButton, Vcl.ExtCtrls, sPanel;

type
  TFChild = class(TForm)
    sPanel2: TsPanel;
    sClose: TsButton;
    sUpdate: TsButton;
    sEdit: TsButton;
    sDel: TsButton;
    sNew: TsButton;
    sCopy: TsButton;
    sSave: TsButton;
    sAlphaImage_toolbar: TsAlphaImageList;
    procedure sCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FChild: TFChild;

implementation

uses main;

{$R *.dfm}

procedure TFChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FChild := nil;
end;

procedure TFChild.sCloseClick(Sender: TObject);
begin
  Close;
end;

end.

На "шаблоне" есть кнопка с кодом

procedure TFChild.FormClose

- который закрывает mdi форму правильно

К примеру я создаю новую форму unit1.pas

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, child;

type
  TForm1 = class(TFChild)

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

end.

В новой форме в Embarcadero нет ничего, пусто. Но в скомпилированной програмем там есть необходимая мне панель... с нужными кнопками, в частности кнопка "Закрыть форму" - и отрабатывает код

procedure TFChild.FormClose

. Но этот код не этой формы. И повторное открытие формы уже будет с ошибкой....
Так вот вопрос: Что именно нужно писать в коде Родительской формы, чтобы код отработал так, как будто это запрос от дочерней формы? FChild := nil; - чтобы тут было как будто Sender чтоли? Я не понимаю что тут нужно указывать!

procedure TFChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FChild := nil;
end;

[evg_m]

procedure TFChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FChild := nil;
end;

в методах НЕ надо использовать ГЛОБАЛЬНЫЕ переменные
FChild := nil;

[iskurt]

Сообщение от evg_m

в методах НЕ надо использовать ГЛОБАЛЬНЫЕ переменные
FChild := nil;

Подскажите, как правильно организовать это?

[evg_m]

что организовать?

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

чтобы мочь использовать внешние данные их надо извне сохранять в разных специально объявленных внутренних переменных (полях).

[iskurt]

Я примерно так и догадывался, по-этому красным и обвел.
Если не сложно, на моём примере привести пример. Если сложно, то тему можно закрывать, буду курить мануалы ))) Видимо не докурил где-то. Сорри

[evg_m]

Если не сложно, на моём примере привести пример.

пример чего?

то что надо было исправить в коде, уже указано.

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