StringGrid自动调整列宽？？？？？？？？？

[guest8188]

在StringGrid中，双击某列的右边，可根据本列的最大列宽自动调整大小，如何实现

就在Excel中双击第一行的某列中线时可自动调整大小一样

[hahafan]

在OnDblClick事件中可以通过鼠标形状的改变来判断是否双击在列中线

[hahafan]

例如下：
需将StringGrid1.Options.goColSizing设为true
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
p : TPoint;
r : TRect;
ACol, ARow : Integer;
begin
if GetCursor = Screen.Cursors[crHSplit] then
begin
GetCursorPos(p);
p := StringGrid1.ScreenToClient(p);
StringGrid1.MouseToCell(p.X, p.Y, ACol, ARow);
r := StringGrid1.CellRect(ACol, ARow);
if p.X - r.Left < 10 then
ACol := ACol - 1;
if ACol = -1 then
ACol := StringGrid1.ColCount - 1;
StringGrid1.ColWidths[ACol] := 100;
end;
end;

[楚人无衣]

没有中线事件，你在单元格中双击事件中写入下面代码试试：
sg: TStringGrid;
...
procedure TfrmStrGrid.sgDblClick(Sender: TObject);
var
i, iWidth, iRow: Integer;
begin
iWidth := 0;
iRow := sg.Row;
for i := 0 to sg.RowCount - 1 do
begin
if self.Canvas.TextWidth(sg.Cells[sg.Col, sg.Row]) > iWidth then
iWidth := self.Canvas.TextWidth(sg.Cells[sg.Col, sg.Row]);
if sg.Row = sg.RowCount - 1 then Break;
sg.Row := sg.Row + 1;
end;
sg.Row := iRow;
iWidth := iWidth + 8;
sg.ColWidths[sg.Col] := iWidth;
end;

[sandyboy]

关注

[w78z]

UP