[Beantwortet] Vererbung OHNE Design

[Mokus]

Wunder schön Guten Morgen Community;

steh vor, für euch wahrscheinlich kleines, Problem.
Wollte / sollte ein kleines Programm schreiben, dass die Oberfläche verschiedener Flächen berechnet.
Da die Formel von Oberflächen von vier ecken immer gleich ist, wollt ich den Umfang per Hauptkklasse vererben.
Probelm; ich arbeite mit meheren Formular anwendungen. Die Oberfläche des Formulares wird nun auch vererbt.
GIbt es ne möglichkeit, dies zu umgehen ?

Delphi-Quellcode:

// hauptklasse; 

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    r_laenge: real;
    r_breite: real;
    function getUmfang(r_laenge: real; r_breite: real): real;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses quadrat;

procedure TForm3.Button1Click(Sender: TObject);
var
  qua: TForm4;

begin
  qua := TForm4.Create(self);
  qua.Show;
end;

function TForm3.getUmfang(r_laenge: real; r_breite: real): real;
begin
  result := (2 * r_laenge + 2 * r_breite);
end;

end.

Delphi-Quellcode:

//Zweite Klasse

unit quadrat;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, main, Vcl.StdCtrls;

type
  TForm4 = class(TForm3)
    Edit1: TEdit;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

end.

Pic 1; oberfläche von der hauptklasse;
Pic2; oberfläche von der quadraten klassen;
Pic3; wie es in der exe aussieht ...

[DeddyH]

Die Berechnung hat ja mit dem Formular nichts, aber auch gar nichts zu tun, daher gehört das in eine eigene Klasse, am Besten in einer eigenen Unit. Diese kann man dann überall einbinden, wo man sie braucht.

[Mokus]

d.H.
extra für die Berechnung der Länge eine eigende Klasse erstellen, klar das würde das problem lösen.
aber nur mal so, gibt es ne möglichketi das Design nicht mit zu vererben ?

[DeddyH]

Wenn TForm4 von TForm3 abgeleitet wird, erbt es natürlich auch dessen Eigenschaften und Methoden. Aber man muss ja nicht von TForm3 ableiten.

[Mokus]

und die Oberfläche gilt als eigenschaft ;
alles klar, dann weiß ich bescheid

dank dir. =)

[himitsu]

Aber, auch wenn ich sowas nicht unbedingt empfehlen würde...

Wenn man das INHERITED aus der DFM der neuen Klasse entfernt und durch OBJECT, dann wird die DFM der Elternklasse nicht geladen/vererbt.


Wobei der "bessere" Weg wäre diese "Berechnung" auszulagern => neue Klasse oder in eine einfache Funktion.

PS: Im Constructor/OnCreate kann man auch {Button}.Free; bzw. {Button}.Hide; ({Button}.Visible := False; ) aufrufen, um den Button wieder loszuwerden.
Oder er ist im Vorfahren unsichtbar und im Constructor wird dann Visible auf True gesetzt.