Изменить размер строковой сетки столбцов в delphi

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

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


delphi delphi-xe8 stringgrid
person A.K    schedule 08.02.2016    source источник
comment
Я сомневаюсь, что у вас есть TStringGrid, подключенный к вашей базе данных - это не информационный элемент управления   -  person Jan Doggen    schedule 08.02.2016
comment
Stringgrid через Live Bindings подключен к базе данных. Кроме кодирования, есть другой способ изменить длину столбца?   -  person A.K    schedule 08.02.2016
comment
длина столбца Может быть, вы имеете в виду ширину?   -  person MartynA    schedule 08.02.2016
comment
Я имею в виду ширину да.   -  person A.K    schedule 08.02.2016

Ответы (1)


arrow_upward
3
arrow_downward

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

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

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;
person MartynA    schedule 08.02.2016