Скачать: CL | DM;

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 и так уже обладает этим свойством и прекрасно реагирует должным образом на изменение этого св-ва

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.971 c