Du kannst den Konstruktor wie jede Prozedur auch Überladen
Delphi-Quellcode:
TMyClass=Class(TButton)
Constructor Create(Aowner:TComponent;AParent:TWinControl);overload;
End;
//____________
constructor TMyClass.Create(Aowner: TComponent; AParent: TWinControl);
begin
inherited Create(AOwner);
Parent := AParent;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with TMyClass.Create(self) do
begin
left := 100;
Parent := Self;
end;
with TMyClass.Create(self,self) do
begin
left := 200;
end;
end;
Vielen Dank für den ausfürlichen Beispielcode.
Wäre es möglich die Funktionalität des Codes noch etwas zu erläutern, damit ich das nachhaltig verstehen und nachvollziehen kann?
Wie und warum müssen zum Beispiel die Aufrufparameter "Aowner:TComponent, AParent:TWinControl und AOwner" so gewählt werden?