关于自作Vcl组件事件的公布？(100)

友

友美子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #1

关于自作Vcl组件事件的公布？vcl组件自作。我继承TClientDataSet组件。公布了它的事件 TMyClientDataSet = class(TClientDataSet) publishedproperty AfterOpen;==========================我想在AfterOpen的事件里面加一些自己的代码，但是下面的过程procedure TMyClientDataSet.AfterOpen(DataSet: TDataSet);overvider;========================编译提示：在基类，找不到方法AfterOpen怎么办？AfterOpen的事件在那里声明？如何声明？

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #2

override procedure DoAfterOpen

 

L

liuls

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #3

在 TDataSet 类的 procedure DoAfterOpen; virtual; 重载它即可procedure TDataSet.DoAfterOpen;begin if Assigned(FAfterOpen) then FAfterOpen(Self); if not IsEmpty then DoAfterScroll;end;

 

Y

YYGGQQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #4

[][]

 

友

友美子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #5

感谢！其实hfghfghfg,的回答已经足够了，但是，我上午因为停电没法结贴。所以，对不起！再次感谢！

 

友

友美子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #6

非常感谢！哈哈！