Dynamische Komponente wird nicht "ausgegeben"

[Nicodius]

Delphi-Quellcode:

procedure TEreignis.CreateForm(Left,Top,Width,Height : Integer; Caption, Text : String; Form : TWinControl);
var button : TButton;
begin
  Ereignis_Form := TForm.Create(Form);
  Ereignis_Form.Left := Left;
  Ereignis_Form.Top := Top;
  Ereignis_Form.Width := Width;
  Ereignis_Form.Height := Height;
  Ereignis_Form.Caption := Caption;
  Ereignis_Form.BorderStyle := bsdialog;
  Ereignis_Form.Visible := true;
  Ereignis_Form.Parent := Form;

  Ereignis_Text := TLabel.Create(Ereignis_form);
  Ereignis_Text.Caption := Text;
  Ereignis_Text.AutoSize := true;
  Ereignis_Text.Left := 5;
  Ereignis_Text.Top := 5;
  Ereignis_Text.Visible := true;
  Ereignis_Text.WordWrap := true;
  Ereignis_Text.Top := Height div 2;

  button := TButton.Create(Ereignis_form);
  button.Caption := 'OK';
  button.Left := 5;
  button.Top := Top + Height div 2;
  button.Width := Width-5;
  button.Height := Height-5;
  button.Visible := true;
  button.OnClick := OkButtonClick;

das form wird generiert aber der btuton und das label nicht(ich kann da nur ne groupbox als parent übergeben... das mag ich aber nicht, form kann ich nicht übergeben)

[edit=Christian Seehase]Delphi-Tags korrigiert Mfg, Christian Seehase[/edit]