自动生成控件的有关问题

自动生成控件的问题
我想在一个PaintBox的显示基础上动态的显示一些图像，当用户鼠标移动到图像上可以显示数字，代码如下：
  TPaintBox* pb = new TPaintBox(Panel1);
  pb->Parent = this;
  pb->Canvas->TextOutA(5,5,TEXT("13"));
  pb->Hint = "13号";
  pb->ShowHint = true;
  this->Invalidate();
  delete pb;
可是我动态生成的pb始终显示不出来，这是怎么回事？

------解决方案--------------------
不好意思,关于这个问题,你表述得让我有些误解了.

确认一下,你的意思是pb上的13没有显示出来?

我理解成你以为pb本身没有显示出来,所以用上面的方法.

如果想显示13,则需要在pb的OnPaint中处理,如下:

void __fastcall TForm1::test()
{
TPaintBox * pb = new TPaintBox(Panel1); 
pb->Parent = Panel1; 
pb->Hint = "13号"; 
pb->ShowHint = true; 
pb->OnPaint = myPaint;
}

void __fastcall TForm1::myPaint(TObject * Sender)
{
TPaintBox * pb = dynamic_cast<TPaintBox *>(Sender);
if(!pb) return;
pb->Canvas->TextOut(10,10,"13"); 
}

当然,myPaint需要在头文件里声明.

注:上面的程序我没有调试,应该没问题,如果有些小问题,你也应该能解决的了吧.