摘要: procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Header: THeader; HeaderItem: THeaderItem; I: Integer; begin Header := THeader((Send 阅读全文
posted @ 2020-11-02 14:42 dqi1999 阅读(245) 评论(0) 推荐(0) 编辑
摘要: FMX StringGrid根据内容自适应列宽 1 // maxrow,默认只排序前面100行以内的数据 2 // maxwidth,默认单字段显示的最大宽度 3 function GetColMaxDataLength(ASGrid: TStringGrid;maxrow:Integer=100; 阅读全文
posted @ 2020-11-02 10:56 dqi1999 阅读(375) 评论(0) 推荐(0) 编辑