Eigene Klasse bauen

[Andreas L.]

Hi,
ich habe versucht eine neue Klasse zu erstellen. Ich möchte eigentlich nichts anderes machen als ein TScrollbox zu erstellen, gleich ein paar Eigenschaften verändern und später dann weitere Elemente auf das Objekt legen. Jetzt scheitere ich jedoch schon beim erstellen der Klasse. Erstmal der Code:

Unit ElementList.pas:

Delphi-Quellcode:

unit ElementList;

interface

 uses ExtCtrls, pngimage, graphics, SysUtils, Classes, forms, controls;

 type
  TElementList = class(TScrollBox)
   procedure Create;
  end;

implementation

procedure TElementList.Create; 
begin

 BevelInner := bvNone;
 BevelKind := bkFlat;
 BevelOuter := bvLowered;
 BorderStyle := bsNone;

end;

end.

Jetzt wollte ich das ganze testen und habe die Unit in einem Delphi-Projekt eingebunden und versuche nun bei einem ButtonClick folgendes zu machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 ellst: TElementList;
begin

 ellst := TElementList.Create; //Compiler markiert diese Zeile, siehe Fehler unten im Post
 with ellst do
  begin

   Parent := Form1;
   Left := 0;
   Top := 0;
   Height := 100;
   Width := 300;
   visible := true;

  end;

end;

Doch meldet mir der Compiler "[Pascal Fehler] Unit1.pas(32): E2076 Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt". Was muss ich ändern? Wo liegt mein Fehler?

Schonmal Danke

[BenjaminH]

du musst create statt als procedure als constructor deklarieren.

[Andreas L.]

Zitat von BenjaminH:

du musst create statt als procedure als constructor deklarieren.

Hurra es kompiliert... Aber dann bekomm ich eine Zugriffsverletzung

[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

[Andreas L.]

Klasse die Klasse funktioniert. Oder mit anderen Worten: Vielen Dank

[Andreas L.]

Was müsste ich jetzt eiegtnlich verändern wenn ich die Klasse als Komponente in Design- und RunTime verwenden möchte? Reicht ein einfaches RegisterComponents() ?

[SirThornberry]

Erstelle bitte für eine neue Frage ein neues Thema