Was hat das mit den Constructor überhaupt für einen Sinn??? man kann es doch auch so machen.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var n : TNavi;
begin
n:=TNavi.Create();
n.Erzeugen(Form1, '
Button');
n.Free;
end;
end.
KLassen
Unit:
Delphi-Quellcode:
unit Unit2;
interface
uses
Forms, StdCtrls;
type
TNavi =
class
procedure Erzeugen(f : TForm; c :
String);
private
b : TButton;
public
end;
implementation
procedure TNavi.Erzeugen(f : TForm; c :
String);
begin
b:=TButton.Create(
nil);
b.Caption:=c;
b.Top:=10;
b.Left:=10;
b.Parent:=f;
end;
end.
so funktioniert es auch und mache auch das gleiche. welche lösung ist besser??? warum???