В этом уроке я хочу показать вам процедуру автоматически подгоняющую размер колонки в компоненте TStringGrid, под написанный там текст.

Поехали..!

Запускаме Delphi и после ключевого слова public пишем

procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);  

Далее жмем уже полюбившуюся комбинацию клавиш CTRL+SHIFT+C, Delphi генерирует шаблон процедуры. А вот как должна выглядеть эта процедура полностью, посмотрите ниже и допишите то чего хватает.

procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);  
var  
i : integer;  
temp : integer;  
max : integer;  
begin  
max := 0;  
for i := 0 to (Grid.RowCount - 1) do begin  
temp := Grid.Canvas.TextWidth(grid.cells[column, i]);  
if temp > max then max := temp;  
end;  
Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3;  
end;   

Теперь нам осталось кинуть на форму кнопку (button) и сам компонент StringGrid.

Сделали ... ?! Надеюсь что да !

Создаем обработчик событий на кнопке и в нем прописываем:

AutoSizeGridColumn(StringGrid1, 1);  

Вот и все, компилируем и запускаем.

Добавлено: 01 Августа 2018 06:56:07 Добавил: Андрей Ковальчук Нравится 0

Добавить