BCB 动态创建组件的事件响应

学习BCB中的历程，一点点的记录下来，呵呵

 

class PACKAGE MyTPanel : public TPanel
{
private:
    TLabel *lblToday;

    void __fastcall lblTodayClick(TObject *Sender);
.....................

};

 

 

void __fastcall MyTPanel::InitCtrl()
{

    lblToday = new TLabel(this);
    lblToday->Left = Left + 174;
    lblToday->Top = Top + 14;
    lblToday->Width = 48;
    lblToday->Height = 12;
    lblToday->Caption = "今天";
    lblToday->Cursor = crHandPoint;
    lblToday->Font->Color = clBlue;
    lblToday->Parent = this;
    lblToday->OnClick = lblTodayClick;
    lblToday->Visible = true;

}

 

void __fastcall MyTPanel::lblTodayClick(TObject *Sender)
{
     ShowMessage("Hello World");
}