Изменение размера сетки строк в Delphi

Question

Я хочу Stringgrid. Я изменяю размер столбцов.

Эта Stringgrid подключена к базе данных. Однако я пробовал разные методы; колонка не изменилась. Что я должен делать?

Answer 1

Не уверен, что вы подразумеваете под "длинами", то есть их шириной или высотой.

Этот код изменит ширину левого столбца:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SG1.ColWidths[0] := SG1.ColWidths[0] + 10;
end;

Эта ссылка покажет вам, как "автоматически изменить" ширину столбцов сетки:

Как сделать так, чтобы столбцы StringGrid соответствовали ширине сетки?

Если вы на самом деле имели в виду высоту ячеек, вы можете сделать это за один раз:

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;