调整 delphi 中 stringgrid 列的大小
Resize the columns stringgrid in delphi
我想要一个 Stringgrid。我更改列的大小。
此 Stringgrid 已连接到数据库。但是,我尝试了不同的方法;该列没有改变。我该怎么办?
不确定 "lengths" 是什么意思,即它们的宽度或高度。
此代码将更改左侧列的宽度:
procedure TForm1.Button1Click(Sender: TObject);
begin
SG1.ColWidths[0] := SG1.ColWidths[0] + 10;
end;
此 link 将向您展示如何 "autosize" 网格的列宽:
How do I make a StringGrid's columns fit the grid's width?
如果您实际上是指单元格的高度,您可以像这样一次一行地执行此操作:
procedure TForm1.btnHeightClick(Sender: TObject);
begin
SG1.RowHeights[1] := SG1.RowHeights[1] + 10; // NB Row 0 is the column header
end;
或者,您可以像这样一次设置所有行的高度:
procedure TForm1.btnHeightsClick(Sender: TObject);
begin
SG1.DefaultRowHeight := SG1.DefaultRowHeight + 10;
end;
我想要一个 Stringgrid。我更改列的大小。
此 Stringgrid 已连接到数据库。但是,我尝试了不同的方法;该列没有改变。我该怎么办?
不确定 "lengths" 是什么意思,即它们的宽度或高度。
此代码将更改左侧列的宽度:
procedure TForm1.Button1Click(Sender: TObject);
begin
SG1.ColWidths[0] := SG1.ColWidths[0] + 10;
end;
此 link 将向您展示如何 "autosize" 网格的列宽:
How do I make a StringGrid's columns fit the grid's width?
如果您实际上是指单元格的高度,您可以像这样一次一行地执行此操作:
procedure TForm1.btnHeightClick(Sender: TObject);
begin
SG1.RowHeights[1] := SG1.RowHeights[1] + 10; // NB Row 0 is the column header
end;
或者,您可以像这样一次设置所有行的高度:
procedure TForm1.btnHeightsClick(Sender: TObject);
begin
SG1.DefaultRowHeight := SG1.DefaultRowHeight + 10;
end;