自己作Edit控件的问题。。。(50分)

  • 主题发起人 主题发起人 locka
  • 开始时间 开始时间
L

locka

Unregistered / Unconfirmed
GUEST, unregistred user!
我继承Tedit作了一个TDimEdit控件,在其create过程中,重新指定了它的几个事件:
constructor TDimEdit.Create(Aowner: Tcomponent);
begin
inherited;
OnClick:= DimEditOnClick;
OnExit:= DimEditOnExit;
OnKeyDown:= DimEditOnKeyDown;
OnKeyPress:= DimEditOnKeyPress;
end;

但为什么我安装了这个控件后,在object inspector 中的event页中的以上各事件(如:onclick)中输入代码
它还是执行,而不执行我的(DimEditOnClick)?
 
你应该重载Click,KeyDown等函数。
 
click,keydown函数在哪?
如何重载?
 
在你的 protected 中写procedure Click; override;
然后写你的实现就行了。
可以看一下TWinControl.DoKeyDown
 
多人接受答案了。
 
后退
顶部