摘要:
procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Header: THeader; HeaderItem: THeaderItem; I: Integer; begin Header := THeader((Send 阅读全文
摘要:
FMX StringGrid根据内容自适应列宽 1 // maxrow,默认只排序前面100行以内的数据 2 // maxwidth,默认单字段显示的最大宽度 3 function GetColMaxDataLength(ASGrid: TStringGrid;maxrow:Integer=100; 阅读全文