コントロール動的生成時に同じポインタが割り当てられないようにするには？ (ID:43888)

名前

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

本文

現在、フォーム上に動的にコントロールを配置するようなアプリケーションを作成しているのですが、
以下の様な問題が発生しており、解決方法をお伺いしたいと思っています。

■問題点
  当アプリケーションでは、主に以下の２つの機能を持っています。
  １．あるフォーム上に、ユーザーが任意に、動的にボタン、エディットボックスなどのコントロールを追加

例えば、ボタンを追加した場合は、以下の様なソースで作成しています。
  ===================================================================
  var
    control : TControl;
    .  
  begin
    control := TButton.Create(nil);
    control.Parent := TForm1;
    control.Visible := True;  .  
    .  
  ===================================================================

また、追加後はジェネリックリスト（TList<TControl>）に
  そのコントロールの参照を追加して、後でそのコントロールを参照できるようにしています。

２．上記１で追加したコントロールの論理削除（非表示）
      &#8667;ジェネリックリストからコントロールを検索後、
      コントロールのVisibleプロパティをFalseにします。
      （非表示にするのみとなり、後で再表示もできるようにしています。）

しかしながら、上記の１と２の操作を繰り返すうちに、
  「１のコントロール動的生成時（Createメソッド）のタイミングで、  ２で論理削除済みのコントロールと同じポインタが割り当てられてしまう」と
  いう現象が発生いたしました。

このとき、２のコントロールは、同じポインタで上書きされてしまうため、参照不可となってしまいます。
  ※１と２はまったく違う種類のコントロール（例えば１がパネルで２がボタン）の場合でも発生してしまいます。
  ※コントロール数は10個以下でも発生いたします。

２は表示上は消えていますが、VisibleをFalseにしているだけで
  解放（Free）などはしていないため、同じポインタが割り当てられてしまう
  原因が不明な状態となっています。

■質問点
  ①一般的に、フォーム上に動的にコントロールの追加及び、非表示（VisibleをFalse）を繰り返すことにより、
    同じポインタが重複して割り当てられるのは一般的なものなのでしょうか？
    （Delphi内部で、重複してポインタを割り当てられないように制御はされないものなのでしょうか？）
  
  ②また、当問題に関する回避方法はあるのでしょうか？
    （例えば、Create時に割り当てるポインタの制御がプログラム側でできれば解決できると思っているのですが、
      VCLソースのCreateのメソッドなどを追ってもそれらしき箇所は見当たりませんでした。。。）

＃上記を実現する単純な再現サンプルソースを作成しようとしたのですが、
  同じ手順でコントロールの追加、非表示を繰り返すプログラムでは、
  同現象の再現ができませんでした。
  （実際はもっと複雑なプログラムのため、その作り方に原因がある可能性もあるのですが…）
  一般的な解決方法があるのでしたらお伺いしたいと思っています。

なお、DelphiのバージョンはXE2です。
よろしくお願いいたします。

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

戻る