如何作这样的组件？

Question

想作一个TCKEdit（继承TEdit类）组件，希望使用该组件的程序，在用户每次左键点这个EDIT时，都执行一个CheckIt过程，然后再执行用户的OnClick过程？CheckIt过程如下
Procedure CheckIt(Sender:TObject...);
begin
   showmessage((Sender as TEdit).Caption);
end;
该怎么作？

Answer 1

你在onclick事件中执行CheckIt不就行了，何必再写一个组件。

Answer 2

不可能！
(Sender as TEdit).Caption
TEdit没有Caption属性！！

Answer 3

showmessage((Sender as TEdit).Caption);有误，改成
showmessage((Sender as TEdit).Text);  因为这只是表示个意思