DBGrid со свойством ScrollBars

← →
wertolet (2005-07-01 11:56) [0]

Никогда компонентов не делал, но тут понадобилось.
Свойство добавил, но не понимаю как заставить грид на него реагировать. Да и вообще надо ли его было добавлять? Оно вроде как бы уже есть.

type TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth); TDBGridSb=class(TDBGrid) private FScrollBars: TScrollStyle; protected procedure SetScrollBars(Value: TScrollStyle); published property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssBoth; end; procedure Register; implementation procedure Register; begin RegisterComponents("Samples", [TDBGridSb]); end; { TDBGridSbl } procedure TDBGridSb.SetScrollBars(Value: TScrollStyle); begin if FScrollBars<>Value then FScrollBars:=Value end; end.

← →
Digitman © (2005-07-01 16:51) [1]

> Да и вообще надо ли его было добавлять? Оно вроде как бы
> уже есть

а действительно - надо ли было ?)

лбой наследник TCustomGrid и так уже обладает этим свойством и прекрасно реагирует должным образом на изменение этого св-ва

DBGrid со свойством ScrollBars Найти похожие ветки