Определить наличие скрола в DBGrid.

[Хитрец]

Как определить показывает DBGrid скрол в данный момент или нет?

[ArtInt]

В стандартном DbGrid наверное будет сложно.
Наверное, все таки придется создавать новый компонент и у него свойства прописывать.
тогда в основном коде примерно так можно будет прописать

procedure TForm1.Button2Click(Sender: TObject);
begin
if cyDbGrid1.VerticalScrollBar=False then showmessage('');
end;

Могу посоветовать данный код можно взять в cyDBGrid на delphisource.ru есть.
Или например в DbGridEh есть такое же свойство.


Хотя, сейчас еще раз посмотрел, вроде можно прямо и в коде прописать проверку

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ShowScrollBAr(DBGridSpisokEditov.Handle,SB_VERT,true)=True then showmessage('');
end;

Проверял работает
Дополнительно:
ShowScrollBar Function

The ShowScrollBar function shows or hides the specified scroll bar.

Syntax
BOOL ShowScrollBar(
HWND hWnd,
int wBar,
BOOL bShow
);

Parameters
hWnd
[in] Handle to a scroll bar control or a window with a standard scroll bar, depending on the value of the wBar parameter.
wBar
[in] Specifies the scroll bar(s) to be shown or hidden. This parameter can be one of the following values.
SB_BOTH
Shows or hides a window's standard horizontal and vertical scroll bars.
SB_CTL
Shows or hides a scroll bar control. The hwnd parameter must be the handle to the scroll bar control.
SB_HORZ
Shows or hides a window's standard horizontal scroll bars.
SB_VERT
Shows or hides a window's standard vertical scroll bar.
bShow
[in] Specifies whether the scroll bar is shown or hidden. If this parameter is TRUE, the scroll bar is shown; otherwise, it is hidden.

Return Value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

You should not call this function to hide a scroll bar while processing a scroll bar message.

Function InformationMinimum DLL Version user32.dll
Header Declared in Winuser.h, include Windows.h
Import library User32.lib
Minimum operating systems Windows 95, Windows NT 3.1

[Хитрец]

Спс. Действительно данная функция есть. Но толи я кривой, толи DBGrid багнутый все равно пишет, что Сролл есть, а его нету.

[ArtInt]

А ты точно все параметры в функции правильно указываешь? Проверь, потому что я проверял у меня работает.
А каким образом скрываешь скролл, может там в коде есть ограничения. выложи для просмотра.
_______________///////////
Можешь поступить проще, ввести булевую переменную и когда скрываешь скрол присваивать ей true, а когда делаешь видимым присваиваешь false. А потом уже проверять чему равна переменная, если true значит скролл скрыт, если false, значит он видим.

[Хитрец]

Вот.. в файле Run TForm1.DBGridResize(Name: TObject);

[Хитрец]

АА все допер... в чем проблема была... я проверку проводил тока когда РЕСАЙС грида был... эх.. СПС еще раз.