Eigene Klasse: Panel mit Edit drauf

[glunzl]

Hallo!

Ich versuche mich gerade an eigenen Klassen, komme aber nicht so recht weiter.
Ich möchte ein Panel mit einem Edit drauf erzeugen. Dazu habe ich eine eigene Unit angefangen, TDatPanel.

In dem Tutorial Komponente TSwitch wird schön erklärt, wie man ein Panel als Switch "umbaut". Hier wird die Panelfäche "niedergedrückt" gehalten. Leider wird nicht gezeigt, wie man eine andere Komponente auf das Panel einbindet udndarauf zugreift.

Weiß jemand ein paar hilfreiche Links zu dem Thema?

Gruß und Dank
glunzl

[DGL-luke]

Links? Nein.

Delphi-Quellcode:

type
  TDatPanel = class(TPanel)
  private
    fEdit: TEdit;
  public
    constructor Create; override;
  end;

implementation

procedure TDatPanel.Create;
begin
  inherited;

  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;

aber dieses Schnipsel sollte dir helfen.

[glunzl]

Wunderbar, Danke!

glunzl

[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

[mkinzler]

Muß .Create (AOwner: TComponent); heißen.

[glunzl]

Hallo!

Wo muß es so heißen? Im OnClick Event des Buttons?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var MyPanel : TDatPanel ; 
begin 
  MyPanel := TDatPanel.Create(Form1) ; // Hier geändert, brachte keine Änderung der Fehlermeldungen
  MyPanel.Parent := Form1 ; 
end;

[mkinzler]

In der definition der Klasse, den der Konstruktor einer Komponentenklasse hat diese Signatur.

[glunzl]

Axo. Jetzt ist schonmal ein Fehler weg ...

Delphi-Quellcode:

type
  TDatPanel = class(TPanel)
  private
    fEdit: TEdit;
  public
    constructor Create(AOwner: TComponent); override;  // hier geändert, kein Fehler mehr.
  end;

Delphi-Quellcode:

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;

[mkinzler]

Hast du die Definition im Interface auch angepasst?

[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.