双击GRID中线调整列宽

最新推荐文章于 2021-01-02 08:36:18 发布

hahafan

最新推荐文章于 2021-01-02 08:36:18 发布

阅读量770

点赞数

文章标签： integer

本文链接：https://blog.csdn.net/hahafan/article/details/604355

版权

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;