Ukrycie pionowego ScrollBara w DBGrid

0

Witam,
Istnieje możliwość usunięcia scrollbara?

Znalazłem:
http://stackoverflow.com/questions/7529524/keep-the-scrollbars-hidden-in-a-delphi-dbgrid-even-on-resize

Lecz ukrywa mi scrollbara na wszystkich DBGridach a chciałybm aby na jednym.

Zna ktoś rozwiązanie ?
Proszę o pomoc.

0

Podajesz Handle jednego a działa na wszystkie?
Chrzani waść.

0

@_13th_Dragon Jeśli nic nie podam w procedurze UpdateScrollBar to nie będe miał na żadnym DBGridzie scrollbara.
A nie mogę użyć DBGrid1.Handle ponieważ otrzymuję błąd, a samo Handle i tak nie działa i nie pokazuje scrollbara.

Chyba, że coś źle robię.

3

Na przykładzie StringGrida (w DBGrid praktycznie tak samo tylko zmieniasz nazwy):

type
  TStringGrid = class(Grids.TStringGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage); message WM_NCCALCSIZE;
  end;
//----
implementation

{$R *.dfm}

procedure TStringGrid.WMNCCalcSize(var Msg: TMessage);
begin
  inherited;
  if Self.Tag = 1 then
    Windows.ShowScrollBar(Handle, SB_VERT, False);
end;

I ustawisz Tag na 1 dla DBGrid którego pionowy pasek przewijania ma być ukryty.

0

Dziękuję!

1 użytkowników online, w tym zalogowanych: 0, gości: 1