Текущий архив: 2006.01.01;
Скачать: 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 вся ветка
Текущий архив: 2006.01.01;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.025 c
