是没有现成的事件,你可组合使用以下两个事件就行了:
StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
在改变Cell大小时,最后的有效事件是 StringGrid1DrawCell !
而其它按各种 Mouse 移动的事件不会产生 StringGrid1DrawCell事件。
其他你要实现的细节,应该不难了吧?