Eigene Klasse bauen

[dataspider]

Hi,

erst mal nur den Code:

Delphi-Quellcode:

type
  TElementList = class(TScrollBox)
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

constructor TElementList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  BevelInner := bvNone;
  BevelKind := bkFlat;
  BevelOuter := bvLowered;
  BorderStyle := bsNone;
end;

Aufruf:

ellst := TElementList.Create(Self); Cu, Frank