[scroyler]

Как привязать последнее поле базы к правому краю компонента dbgrid,что бы после расширения строки не уходили за границы DBgrid'a,т.е. надо чтобы даже при разворачивание программы в полно оконный режим,после последнего поля не было пустого пространства,а была привязка к краю.

[andrey.vadimovich]

тут нужно играться с свойствами dbgrid, а точнее с свойством Width в column[номер последнего столбца], думай, если будет уж совсем худо - говори, сейчас просто дельфи под рукой нет.

[Belanserg]

Воспользуйся компонентом DBGridEh.

[scroyler]

Сообщение от Belanserg

Воспользуйся компонентом DBGridEh.

им и пользуюсь

[scroyler]

Сообщение от andrey.vadimovich

тут нужно играться с свойствами dbgrid, а точнее с свойством Width в column[номер последнего столбца], думай, если будет уж совсем худо - говори, сейчас просто дельфи под рукой нет.

ничего подобного не нашел(

[Страдалецъ]

Видимо вам нужно вот такое:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); Var W,i: Integer;     Grid: TDBGrid; begin  Grid := TDBGrid(Sender);  if Column = Grid.Columns[Grid.Columns.Count - 1]  then begin       W := Grid.Width;       for i := 0 to Grid.Columns.Count - 2       do Dec(W, Grid.Columns[i].Width);       if dgIndicator in Grid.Options       then Column.Width := W - 19 //Это константные значения для стандартной схемы Windows,       else Column.Width := W - 7; //в другой схеме могут работать неверно.       end; end;