実行時にフォームからTFrameを削除する

Question

私はC++ Builderを使ってVCLフォームアプリケーションを作成しています。今私は、私はまた、「追加」ボタンのコールを持っているコンポーネントの束を含むTFrameのをしていると、それはこのようになります...

。基本的にフォームのAddボタンを押すたびに、新しいTFrameが追加され、前のテーブルの下にテーブルのようなものが作成されます。重複を追加するには、TFrameが作成される前に名前を変更する必要があります。

int __fastcall TForm1::AddMapCells(void) 
    { 
     Num++; 
     TFrame1 * MyFrame = new TFrame1(Form1); 
     MyFrame->Parent=Form1; 
     MyFrame->Name = "TFrame" + IntToStr(Num); 
     MyFrame->Top = 23*Num; 
     return Num; 
    } 

それではTFrameのの命名は、などTFrame1、TFrame2、TFrame3、

だろう問題は、今私はTFrameのの「X」ボタンを押すたびにそう、私はそれをしたいです、それはそのTFrameを削除し、私はそれを行う方法がかなりわからない。私はたぶんTFrameを作成するたびに、「X」ボタンの名前をButton1、Button2、Button3などに変更することも考えていました。そして、プログラムを削除すると、TFrameとTFrameXが一致し、削除するTFrameを特定します。たとえば、ボタン4を押すと、TFrame4と一致し、TFrame4が削除されます。

このアイデアの実装方法はわかりません。または、これを行う簡単な方法がありますか？

Answer 1

簡単な解決策は、TFrameインスタンスを自分自身のために解放することです。 OnClickイベントハンドラをXボタンに割り当て、PostMessage()を介して親のTFrameウィンドウにキューに入れられたメッセージをポストしてからTFrameクラスにそのメッセージが処理されるときにTFrameインスタンスを解放するメッセージハンドラを与えます（これはTForm::Release()メソッドの仕組みです）。 ）、例えば：あなたが（例えば、下TFrameインスタンスを再配置するために）閉鎖されているTFrameが通知されるように、あなたの親TFormが必要な場合は

void __fastcall TFrame1::CloseButtonClick(TObject *Sender) 
{ 
    // CM_RELEASE is defined in Controls.hpp 
    PostMessage(Handle, CM_RELEASE, 0, 0); 
} 

void __fastcall TFrame1::WndProc(TMessage &Message) 
{ 
    if (Message.Msg == CM_RELEASE) 
    { 
     delete this; 
     return; 
    } 

    TFrame::WndProc(Message); 
} 

、あなたはTFrameクラスでカスタムTNotifyEventイベントを公開し、あなたを持つことができますTFormイベントハンドラを割り当てます。例：

class TFrame1 : public TFrame 
{ 
private: 
    TNotifyEvent FOnClose; 
    ... 
public: 
    ... 
    __property TNotifyEvent OnClose = {read=FOnClose, write=FOnClose}; 
}; 

void __fastcall TFrame1::CloseButtonClick(TObject *Sender) 
{ 
    if (FOnClose != NULL) FOnClose(this); 
    PostMessage(Handle, CM_RELEASE, 0, 0); 
} 

void __fastcall TFrame1::WndProc(TMessage &Message) 
{ 
    if (Message.Msg == CM_RELEASE) 
    { 
     delete this; 
     return; 
    } 

    TFrame::WndProc(Message); 
} 

。

int __fastcall TForm1::AddMapCells(void) 
{ 
    Num++; 
    TFrame1 * MyFrame = new TFrame1(this); 
    MyFrame->Parent = this; 
    MyFrame->Name = "TFrame" + IntToStr(Num); 
    MyFrame->Top = 23*Num; 
    MyFrame->OnClose = &FrameClosed; 
    return Num; 
} 

void __fastcall TForm1::FrameClosed(TObject *Sender) 
{ 
    // Sender is the TFrame1 instance whose X button was clicked. 
    // It will auto-free itself after this method exits... 
}