Eigene Klasse: Panel mit Edit drauf

[glunzl]

Der obere Code ist aus dem Interface, der unter aus dem Implementation Abschnitt.

Hier nochmal ganz:

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(AOwner: TComponent); override;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TDatPanel.Create(AOwner: TComponent); // hier noch Fehler "Deklaration von 'Create' unterscheidet sich von 
                                                // vorheriger Deklaration". Sowohl mit und ohne (AOwner: TComponent) 
begin 
  inherited;  // Hier auch noch Fehler 

  fEdit := TEdit.Create(self);   //
  fEdit.Parent := self;  //zuweisung des parent extrem wichtig!
  fEdit.Align := alTop;  //damit erspar ich mit die ganze left,top,width,height tipperei... is ja nur ein beispiel
end;

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

end.