избавится от ScrollBar...

[Roof]

Нашел код, как избавиться от ScrollBar в DBGrid.
Но ScrollBar не исчезает, а постоянно мигает. Как вообще удалить ScrollBar? Вот код, который делает "почти" то что мне нужно...

type
  TNoScrollBarDBGrid = class(TDBGrid)
  protected
    procedure Paint; override;
end;

procedure register;

implementation

procedure register;
begin
  RegisterComponents('Samples', [TNoScrollBarDBGrid]);
end;

{ TNoScrollBarDBGrid }

procedure TNoScrollBarDBGrid.Paint;
begin
  SetScrollRange(Handle, SB_VERT, 0, 0, false);
  inherited;
end;

Справка в 2007 делфи чет не помогла... кучу функций scrollbar 'a перепробовал - и ничего...

[Terran]

Если я не ошибаюсь, то от ScrollBar можно избавиться так:

Type
TGrid=Class(TCustomGrid)
End;
...
Begin
TGrid(DBGrid1).ScrollBars:=SsNone;
End;

[Roof]

2 Terran - неа не прокатывает, при заполнении DBGrid все равно вертикальный Scroll появляется...

[mihali4]

Из содержимого моего справочника (свободно лежит на сайте нашего клуба):

Нужные нам свойства существуют, но вынесены в секцию Protected предка DBGrid: TCustomGrid. 
Наиболее правильным способом было бы создание класса наследника от TDBGrid с выводом ScrollBars в 
секцию Public, но можно обойтись и без этого следующим способом: 

Type TFake=class(TCustomGrid); 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 	
TFake(DBGrid1).ScrollBars:=ssNone;  
end;

Если лично у вас что-то не получается, это не значит, что ОНО не работает. Когда наберетесь мало-мальского опыта, тогда и все примеры из книг "вдруг" начнут работать, и вопросов меньше будет возникать. А если и будут, то нормально сформулированные. "Нахаляву" программировать не научишься. Само программирование - это творчество, а вот процесс обучения - тяжкий труд. И не берите за образец подражания мартышку с очками из известной басни. Если не хотите работать (в данном случае САМОСТОЯТЕЛЬНО читать литературу), то лучше сразу бросьте это дело и валяйте играть в Doom или Warcraft, что там у вас сейчас в моде...

[Roof]

2 mihali4 при всем к вам уважении меня ваши советы по поводу того как учиться программитровать нисколько не интересуют. И кстати в игры я не играю. Не в обиду говорю.
Насчет свойств в protected - это да, возможно именно то, что нужно.
А приведенный способ не работает. Не верите? Проверьте в моем примере.
Конечно, я оставляю шанс на то, что я глубоко ошибаюсь...

[alexBlack]

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

Нашел код, как избавиться от ScrollBar в DBGrid.
Но ScrollBar не исчезает, а постоянно мигает. Как вообще удалить ScrollBar? ...

Раз уж Вы создаете свой контрол, перекройте UpdateScrollBar;

type
   TMyGrid = class(TDBGrid)
   protected
      procedure UpdateScrollBar; override;
   public
      constructor Create(Owner:TComponent); override;
   end;

constructor TMyGrid.Create(Owner:TComponent);
begin
   inherited Create(Owner);
   ScrollBars := ssNone;
end;

procedure TMyGrid.UpdateScrollBar;
begin
    // ничего не делаем и не вызываем метода предка
end;

Это метод перекрыт в TDBGrid и вызывает SetScrollInfo() независимо от свойства ScrollBars. Поэтому простое TMyGrid(DBGrid1).ScrollBars := ssNone; не работает. (по крайней мере в 10-ке. может в других версиях было по другому).

[Roof]

2 alexBlack - создаю свой контрол по твоему коду, но вот ssNone; никак не компилируется...
[DCC Error] MyDBGrid1.pas(30): E2003 Undeclared identifier: 'ssNone' - пишет...
может uses какой еще подцепить?
2007 делфи...

[alexBlack]

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

2 alexBlack - создаю свой контрол по твоему коду, но вот ssNone; никак не компилируется...
[DCC Error] MyDBGrid1.pas(30): E2003 Undeclared identifier: 'ssNone' - пишет...
может uses какой еще подцепить?
2007 делфи...

TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);
в StdCtrls;

[Roof]

2 alexBlack - да, точно он самый. Огромное спасибо за замечательное решение проблемы.

[Сергей089]

Здравствуйте. А что делать, если на строчку

procedure UpdateScrollBar; override;

выходит ошибка

Method 'UpdateScrollBar' not found in base class

?


Так нет ошибки

  protected
    {$IFDEF COMPILER9_UP}
    procedure UpdateScrollBar; override;
    {$ENDIF COMPILER9_UP}
...
implementation
{$IFDEF COMPILER9_UP}
procedure TMyGrid.UpdateScrollBar;
begin
    // ничего не делаем и не вызываем метода предка
end;
{$ENDIF COMPILER9_UP}