Можно ли сделать в DBGrid такой ScrollBar как в TMemo при стиле ssBoth???
Тоесть если записи в DBGrid не достигают предела обзора то ScrollBar должен
просто быть не активным, но не исчезать! Как решить эту проблему???

Метод ShowScrollBar помогает.. но где то у Parent-a этого Grid-a вызывается
событие, по которому срабатывает ShowScrollBar(hScroll, ???, False)
тоесть опять переходит в состояние Invisible..

Помогите пожалуйста...

Здравствуйте, Teddy, Вы писали:

T>Можно ли сделать в DBGrid такой ScrollBar как в TMemo при стиле ssBoth???
T>Тоесть если записи в DBGrid не достигают предела обзора то ScrollBar должен
T>просто быть не активным, но не исчезать! Как решить эту проблему???

For that you need to make a descendent of TDBgrid. You give it a handler for
the WM_NCCALCSIZE message:

  private
    Procedure WMNCCalcSize( Var msg: TMessage );
      message WM_NCCALCSIZE;

procedure TXDBGrid.WMNCCalcSize(var msg: TMessage);
var
  style: Integer;
begin
  style := getWindowLong( handle, GWL_STYLE );
  If (style and WS_VSCROLL) = 0 Then
    SetWindowLong( handle, GWL_STYLE, style or WS_VSCROLL );
  inherited;
end;

Peter Below (TeamB) 100113.1101@compuserve.com)