いつもお世話になっております。
現在、スマートフォンで使用するアプリをFireMonkeyを用いて作成しているのですが、動的生成を行ったオブジェクトの削除の方法がわからず困っております。
どのようにすればいいのでしょうか?
私も試行錯誤してなんとか、というレベルですが。
procedure Hoge.FormCreate(~)
var
edt:TEdit;
begin
edt:=TEdit.Create(self);// 動的に作成
edt.Position.X:=10;
edt.Position.Y:=20;
edt.Width :=200;
edt.Nameh :='edt01';
self.AddObject(edt); // フォームにぺったん
end;
procedure Hoge.Close(~)
var
TC:TComponent;
begin
TC:=FindConponent('edt01');
if(TC<>nil)then TEdit(TC).Release; // 解放
end;
誤字チェックしていません。
ツイート | ![]() |