求救: 事件重载! ( 积分: 20 )

  • 主题发起人 主题发起人 otqsoft
  • 开始时间 开始时间
O

otqsoft

Unregistered / Unconfirmed
GUEST, unregistred user!
现在我封了一个类,传到类里面有一个StringGrid,并且里面对这个StringGrid创建一个DrawCell事件,用于初始化StringGrid风格
问题是,我现在要在外面使用这个事件,怎么用啊????
那位朋友知道,指点一下吧...
 
type TMyGrid = class(TStringGrid);

var
StringGrid1: TStringGrid;

TMyGrid(StringGrid1).DrawCell(
 
首先要定义一个事件类型
Type
TStringGridDrawCellEvent = procedure(Sender: TStringGrid; var Brush: TBrush) of Object;
然后在你封装的类中声明一个该类型的事件即可
Type
TMyGrid = class(TStringGrid)
protected
FDrawCell: TStringGridDrawCellEvent;
published
property OnDrawCell:TStringGridDrawCellEvent read FDrawCell write FDrawCell;
end;
 
可能还要用到同步的问题
 

Similar threads

回复
0
查看
1K
不得闲
回复
0
查看
995
不得闲
回复
0
查看
566
不得闲
回复
0
查看
701
不得闲
后退
顶部