调用的问题
procedure TFMMaterailsSuppliers.cxGrid1DBTableView1CellClick(
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
以上是一个CXGRID的单击事件,我想要在其它地方调用,不知道是怎么写的?
[解决办法]
procedure abc;
begin
//原来放在单元点击的语句
end;
procedure TFMMaterailsSuppliers.cxGrid1DBTableView1CellClick(
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
abc;
end;
“其它地方调用”调用 abc; 即可