CreateWnd 在哪里?
看到 :以下代码,不知道 CreateWnd 在哪里重载
==============================================================
不能放在构造函数里写,重载TListView的虚拟函数CreateWnd,将代码
放在CreateWnd里写就可以了:
class PACKAGE TGuFileListView : public TListView
{
private:
void GetIconToFileListView(void);
protected:
void __fastcall CreateWnd(void);
void __fastcall DragDropFiles(TMessage &msg);
public:
__fastcall TGuFileListView(TCustomForm* Owner);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_DROPFILES, TMessage, DragDropFiles);
END_MESSAGE_MAP(TListView);
__published:
};
__fastcall TGuFileListView::TGuFileListView(TForm* Owner)
: TListView(Owner)
{
}
//---------------------------------------------------------
void __fastcall TGuFileListView::CreateWnd(void)
{
TListView::CreateWnd();
GetIconToFileListView();
DragAcceptFiles(Handle, True);
}