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

du musst create statt als procedure als constructor deklarieren.

Zitat von BenjaminH:

du musst create statt als procedure als constructor deklarieren.

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

Hi,

erst mal nur den Code:

zusammenfalten · markieren

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

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

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() ?

Erstelle bitte für eine neue Frage ein neues Thema