TMS控件的源码里面有空间AdvStringGrid等适合delphi7,6,5等版本!