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

Question

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

私はC ++ Builderを使ってVCLフォームアプリケーションを作成しています。今私はコンポーネントの束を含んでいるTFrameを持っていて、これはこのように見えます...

enter image description here

私はまた、ボタンを呼び出す "追加"があります。基本的にフォームの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が削除されます。

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

2

追加された 06 2月 2012 〜で 04:40 著者 livelaughlove 編集された 20 8月 2015 〜で 08:30

ビュー: 15

源

ru fr es pt de ar

1 答え

著者 Remy Lebeau · Answer 1 · 2012-02-06T11:47Z

簡単な解決策は、 TFrame インスタンスを自分自身で解放することです。 OnClick イベントハンドラをXボタンに割り当て、 PostMessage（）を介して親の TFrame ウィンドウにキューに入れられたメッセージを投稿させ、 TFrame クラスは、そのメッセージが処理されたときに TFrame インスタンスを解放するメッセージハンドラです（これは TForm :: Release（）例えば：

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 インスタンスの位置を変更するなど、閉じている TFrame を親の TForm に通知する必要がある場合は、 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。。。
}