Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 45 стр.

                      { Private declarations }
                   public
                      { Public declarations }
                   end;
     var
        Form1: TForm1;
implementation
     uses u2, u3;
     {$R *.dfm}
  procedure TForm1.BitBtn1Click(Sender: TObject);
     begin
        if Form2 = Nil then Form2 := TForm2.Create(Application);
        Form2.Show;
     end;
    procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
       if Form3 = Nil then Form3 := TForm3.Create(Application);
       Form3.Show;
    end;
  end.
Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɹ Close ɞɥɹ Form2, Form3.
  procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
       if Form2 <> Nil then Release;
    end;

  procedure      TForm3.FormClose(Sender:        TObject;   var    Action:
TCloseAction);
     begin
       if Form3 <> nil then Release;
     end;



ȼɚɪɢɚɧɬɵ      ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
              Ƚɥɚɜɧɚɹ ɮɨɪɦɚ (ɫɬɚɧɞɚɪɬɧɚɹ ɮɨɪɦɚ) ɩɪɟɞɨɫɬɚɜɥɹɟɬ ɜɨɡ-
              ɦɨɠɧɨɫɬɶ ɨɛɪɚɬɢɬɶɫɹ ɤ ɮɨɪɦɟ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2.
              ɂɡ ɮɨɪɦɵ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2 ɦɨɠɧɨ ɜɟɪɧɭɬɶɫɹ ɜ
      1
              ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ. ȼɨɡɦɨɠɧɨɫɬɶ ɡɚɤɨɧɱɢɬɶ ɪɚɛɨ-
              ɬɭ ɩɪɢɥɨɠɟɧɢɹ ɞɨɥɠɧɚ ɫɭɳɟɫɬɜɨɜɚɬɶ ɬɨɥɶɤɨ ɩɪɢ ɪɚɛɨɬɟ ɫ
              ɝɥɚɜɧɨɣ ɮɨɪɦɨɣ
                                     45