Показать сообщение отдельно
  #3  
Старый 29.07.2014, 23:37
phomm phomm вне форума
Новичок
 
Регистрация: 07.10.2013
Адрес: Тюмень
Сообщения: 50
Версия Delphi: 7/2007/XE+/FPC
Репутация: 22
По умолчанию

Примерный способ, теребует подгонки, и универсализации ( если полей больше 2 то надо циклом высчитать ширину колонок кроме требуемой), например в независимости от установленности опции Indicator'a). Продумать что использовать - DataSet.Fields[х].DisplayWidth или dbGrid.Columns[х].Width
Код:
procedure TForm1.FormResize(Sender: TObject);
begin
  DataSet.Fields[1].DisplayWidth := DBGrid1.ClientWidth - DataSet.Fields[0].DisplayWidth - 12{Indicator width};
end;
Ответить с цитированием