Einzelnen Beitrag anzeigen

Benutzerbild von Zodi
Zodi

Registriert seit: 19. Jul 2017
Ort: Berlin
47 Beiträge
 
Delphi XE7 Ultimate
 
#1

Komponente zur Laufzeit erstellen

  Alt 17. Jul 2021, 13:45
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?
Pascal
  Mit Zitat antworten Zitat