Fomular mit Button zur Laufzeit erstellen

[Rifman]

Hallo,
ich versuche ein Formular mit Button zur Laufzeit zu erstellen, ich bekomme aber das Form ohne Button.

Delphi-Quellcode:

unit:Form2
...
procedure TForm2.FormCreate(Sender: TObject);
 var
    button:TButton;
 begin
  button := TButton.create(self);
  button.left:=10;
  button.top:=10;
  button.width:=17;
  button.height:=17;
  button.Parent := self; 
 end;

dieses Formular wird auf FormMain mit einem Button Click aufgerufen

Delphi-Quellcode:

unit:TFormMain
..
procedure TFormMain.Btn1Click(Sender: TObject);
 var:
  Form: TForm2;
 begin
   Form:= TForm2.Create(self);
   Form.show;
  end;

Was mache ich denn Falsch?

Danke.

[DeddyH]

Wieso ist button eine lokale Variable?

[Dani]

In diesen Codezeilen ist eigentlich nichts falsch. Setz doch mal einen Haltepunkt in TForm2.FormCreate und schau, ob der Code überhaupt ausgeführt wird. Vielleicht fällt uns was auf, wenn du mal den kompletten Quellcode hochlädst.

[Rifman]

OK, die wichtigsten Abzüge des Kodes , was das Problem betrifft sind wie folgt:
Der Aufruf im FormMain

Delphi-Quellcode:

var
  FormMain: TFormMain;

var
   FormArray :array of TVisualizeForm;
   
implementation

procedure TFormMain.StartBtnClick(Sender: TObject);
 var
   i:integer;
 begin
    for i := 0 to MBListBox.items.Count-1 do
    begin
     FormArray[i] := TVisualizeForm.Create(owner);
     FormArray[i].show;
    end;

Das Formular zum Aufrufen

Delphi-Quellcode:

type
  TVisualizeForm = class(TForm)
  procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  VisualizeForm: TVisualizeForm;
var  
  button:TButton;
implementation

{$R *.DFM}
procedure TVisualizeForm.FormCreate(Sender: TObject);

 begin
  button := TButton.create(owner);
  button.left:=10;
  button.top:=10;
  button.width:=17;
  button.height:=17;
  button.Parent := self; //VisualizeForm;
 end;

Ich bin für jeden Tip Dankbar.

[mkinzler]

Delphi-Quellcode:

constructor TVisualizeForm.[s]Form[/s]Create(Sender: TObject);
begin
    inherited Create;
...
end;

[Die Muhkuh]

Naja, wenn er das Create Ereigniss im OI zugewiesen und umbenannt hat, dann braucht er auch kein inherited Create

[mkinzler]

Es wird aber in seinem Fall nicht aufgerufen.

[Rifman]

Zitat von mkinzler:

Delphi-Quellcode:

constructor TVisualizeForm.[s]Form[/s]Create(Sender: TObject);
begin
    inherited Create;
...
end;

Erstmal Danke für deine Antwort,

Delphi-Quellcode:

constructor TVisualizeForm.FormCreate(Sender: TObject);

 begin
  inherited Create(self);

  button := TButton.create(owner);
  button.left:=10;
  button.top:=10;
  button.width:=17;
  button.height:=17;
  button.Parent := self; //VisualizeForm;
 end;

Das Problem besteht leider immer noch.

[Die Muhkuh]

Hast Du mal einen Breakpoint in die Create-Procedure gesetzt und geschaut, ob der Debugger anhält?

[Rifman]

Ja, habe ich eben grad , aber der Debugger hält gar nicht an.
Aber wieso denn?