控件的方法如何做?

Question

我自定义一控件继承于
TCustomEdit我想在它的
    property OnEnter;
    property OnExit;
    事件中写自己的东西,如何做才好
比如在OnEnter里,SHOW一个GRID
OnExit里HIDE GRID,谢谢

Answer 1

private
  procedure SHOWGRID();
  procedure HideGRID();在构造函数里面
  OnEnter=SHOWGRID;
  OnExit=HideGRID;procedure TMyCustomEdit.SHOWGRID();
Begin
  Grid1.visible:=true;
End;procedure TMyCustomEdit.HideGRID();
Begin
  Grid1.visible:=false;
End;

Answer 2

哦,有没有更好的方法,比如捕捉 OnEnter,OnExit的消息?
要如何做?

Answer 3

找一个类似的VCL组件，把他的源码好好看看，你就会了。