実行時プロパティの保存をするには？ (ID:3675)

名前

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

本文

にしの様レスありがとうございます。
なるほどCreateNewで新しくFormを作成してやればいいのですね。
もう少し教えてください。
表示はうまくいっているのですが何度もCreateNewで作成しCloseしていると
メモリが蓄積してしまいます。どうすれば開放できるのでしょうか？

以下テストプログラムです。
    { Public 宣言 }
    FrmNo :Integer;
    Frm1,Frm2:TForm;
    procedure FormChange(No: Integer);
    procedure TestClick(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation

uses testHyozi;

{$R *.dfm}

procedure TForm2.FormChange(No: Integer);
var
  Cu : TButton
begin
    FrmNo := No;
    case FrmNo of
      1:begin
        Frm1 := TForm.CreateNew(Application);
        ReadComponentResFile('Unit1.dfm',Frm1);
        Frm1.Show;
        cu := Frm1.FindComponent('Button1') as TButton
        cu.OnClick := TestClick;
      end;
      2:begin
        Frm2 := TForm.CreateNew(Application);
        ReadComponentResFile('Unit2.dfm',Frm2);
        Frm2.Show;
        cu := Frm2.FindComponent('Button1') as TButton
        cu.OnClick := TestClick;
      end;
  end;
end;

procedure TForm2.TestClick(Sender: TObject);
begin
  if Form2.FrmNo = 1 then
  begin
    Form2.FormChange(2);
    Frm1.Close;
  end
  else
  begin
    Form2.FormChange(1);
    Frm2.Close;
  end;
end;

procedure TForm2.FormShow(Sender: TObject);
var
  Cu : TButton
begin
    FrmNo := 1;
    Frm1 := TForm.CreateNew(Application);
    ReadComponentResFile('Unit1.dfm',Frm1);
    Frm1.Show;
    cu := Frm1.FindComponent('Button1') as TButton
    cu.OnClick := TestClick;
end;

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

戻る