Komponente zur Laufzeit erstellen

[Zodi]

Hi Delphinaer ich versuche mich gerade vom erstellen von einr Form und einem Button zur Laufzeit.

Zuerst erstelle ich die Form und danach den Button.
Leider wird mir der Button nicht in der neuen Form sondern im der Haupt Form angezeigt.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyForm1: TForm;
  MyButton: TButton;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MyForm1 := TForm.Create(self);
  MyForm1.Caption := 'Neue Form';
  MyForm1.Position := poScreenCenter;
  MyForm1.Color := clMaroon;
  MyForm1.Show;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  MyButton := TButton.Create(MyForm1);
  MyButton.Top := 1;
  MyButton.Left :=1;
  MyButton.Height := 32;
  MyButton.Width := 200;
  MyButton.Parent := self;
  MyButton.Name := 'New Button';
  MyButton.Enabled := true;
  MyButton.Caption := 'Button3';
  MyButton.Show;
end;

Was mach ich da genau falsch?

[bnreimer42]

Ich denke, Parent vom Button muss das neue Formular sein.

[Redeemer]

Zitat von bnreimer42:

[...]Parent vom Button muss das neue Formular sein.

Völlig korrekt.

Der AOwner-Parameter im Konstruktor setzt nur die Komponente, die den Button automatisch freigibt, wenn sie selbst freigegeben wird.