Eigene Klasse bauen

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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

Eigene Klasse bauen

Eigene Klasse bauen

Forumregeln