[scroyler]

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

[andrey.vadimovich]

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

[Belanserg]

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

[scroyler]

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

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

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

[scroyler]

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

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

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

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

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

Код:

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;