Question

DBGrid的网格长度怎样根据实际字符串长度变化

Answer 1

标题:数据网格自动适应宽度//*)
///////Begin SourceusesMath;function DBGridRecordSize(mColumn: TColumn): Boolean;
{ 返回记录数据网格列显示最大宽度是否成功 }beginResult := False;
if not Assigned(mColumn.Field) then Exit;
mColumn.Field.Tag := Max(mColumn.Field.Tag,
TDBGrid(mColumn.Grid).Canvas.TextWidth(mColumn.Field.DisplayText));
Result := True;