Ich habe das jetzt folgendermaßen angepasst:
Delphi-Quellcode:
procedure TMain.FormCreate(Sender: TObject);
begin
bt1:= TButton.Create(Main);
bt1.SetBounds(20,20,160,60);
bt1.Parent:= Main;
bt1.Visible:= True; //Das geht nicht
bt1.Caption:= 'Neues Fenster';
bt1.OnClick:= NeuesFenster;
btEnde:= TButton.Create(Main);
btEnde.SetBounds(20,100,160,60);
btEnde.Parent:= Main;
btEnde.Visible:= True; //Das geht nicht
btEnde.Caption:= 'Schliessen';
btEnde.OnClick:= MainClose;
end;
procedure TMain.NeuesFenster(Sender:TObject);
begin
F2:=TFormular2.Create(Main);
F2.Show;
bt2:= TButton.Create(F2);
bt2.SetBounds(20,20,160,100);
bt2.Parent:= F2;
bt2.Caption:= 'Formular schließen';
bt2.OnClick:= F2Close;
bt1.enabled:=false;
bt2.Visible:=true; //Das geht nicht
end;
Entweder habe ich dich noch nicht richtig verstanden, und diese Möglichkeit besteht durchaus, aber es funktioniert noch nicht.