DBGrid со свойством ScrollBars [D7, WinME, WinXP]
wertolet © (2005-07-01 11:56:00)
Никогда компонентов не делал, но тут понадобилось.
Свойство добавил, но не понимаю как заставить грид на него
реагировать. Да и вообще надо ли его было добавлять? Оно
вроде как бы уже есть.
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:00) [1]
> Да и вообще надо ли его было добавлять? Оно вроде
как бы
> уже есть
а действительно - надо ли было ?)
лбой наследник TCustomGrid и так уже обладает этим свойством
и прекрасно реагирует должным образом на изменение этого
св-ва
Наверх 
ЧАТ |
Орешник |
|
