DelphiXE5のFreeでControlが消えない (ID:45329)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

DelphiXE5  iOSアプリ(iPhone,iPad)にて２つのフォームを作成し、フォーム①でボタン1をクリックするとフォーム②に動的にコントロールを配置し、フォーム②のボタンでFreeを行いCloseさせているのですが、さらにそこからフォーム①のボタン2をクリックすると、フォーム②にボタン1で作成したコントロールが残ります。
Release、Destroyだと一見動作しますが、その後、他の処理を行っているとエラーがでて動かなくなってしまいます。
DelphiにはRelease、Destroyは使わないように書かれておりますので、
対処法をご教授頂けますと幸いです。

フォーム①
unit freebug;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,freebug2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private 宣言 }
  public
    { public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form2.Start1(Self);
    Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Form2.Start2(Self);
    Form2.Show;
end;

end.

フォーム②
unit freebug2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
  FMX.StdCtrls, FMX.ListBox, FMX.Layouts, FMX.Memo;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private 宣言 }
    zEdit:TMemo;
    zPanel:Tpanel;
  public
    { public 宣言 }
    procedure Start1(Sender: TObject);
    procedure Start2(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
begin
    zPanel.Free;
    Close;
end;

procedure TForm2.Start1(Sender: TObject);
begin
    zPanel := TPanel.Create(Form2);
    zPanel.Parent := Form2;
    zEdit := TMemo.Create(Form2);
    zEdit.Parent := zPanel;
    zEdit.SetBounds(0, 0, 100, 50);
end;

procedure TForm2.Start2(Sender: TObject);
begin
    zPanel := TPanel.Create(Form2);
    zPanel.Parent := Form2;
    zEdit := TMemo.Create(Form2);
    zEdit.Parent := zPanel;
    zEdit.SetBounds(100, 0, 100, 50);
    zPanel.SetBounds(100, 100, 100, 50);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る