Eigene Klasse: Panel mit Edit drauf

[glunzl]

Ich nochmal ...

Ich habe das ganze versuchweise mal in einer Unit zusammengeschrieben, aber bekomme immer Fehlermeldungen. Die habe ich als Kommentar in den Quelltext geschrieben.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TDatPanel = class(TPanel)
  private
    fEdit: TEdit;
  public
    constructor Create; override;  // Deklaration von 'Create' unterscheidet sich von vorheriger Deklaration
                                   // Ungenügende Forward- oder External-Deklaration: 'TDatPanel.Create'    
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TDatPanel.Create;  // Deklaration von 'Create' unterscheidet sich von vorheriger Deklaration
begin
  inherited;  // Diese Form des Methodenaufrufs ist nur in Methoden von abgeleiteten Typen erlaubt

  fEdit := TEdit.Create(self);  // Undefinierter Bezeichner: 'fEdit'
  fEdit.Parent := self;  // Operator oder Semikolon fehlt
  fEdit.Align := alTop;  // Operator oder Semikolon fehlt
end;

procedure TForm1.Button1Click(Sender: TObject);
var MyPanel : TDatPanel ;
begin
  MyPanel := TDatPanel.Create ;
  MyPanel.Parent := Form1 ;
end;

end.

Asterix lief zwar gerade, aber ich bin mit meinem Latein mal wieder am Ende ...

Gruß
glunzl