Panel in sebsterstellender Form

[Andidreas1]

Hallo
Wie kann ich ein Panel in eine Form einbauen, die sich bei Programmstart selbst erstellt?

[turboPASCAL]

Auf die selbe Art:

Delphi-Quellcode:

procedure TForm.MeineDynForm(Sender: TObject);
var
  frm: TForm;
  Panel: TPanel;
begin
  frm := TForm.Create(Self);
  with frm do
  try
    Position := poScreenCenter;
    BorderStyle:= bsDialog;
    ClientHeight := 200;
    ClientWidth := 420;
    Caption := 'Hi';

    Panel := TPanel.Create(Self);
    try
      with Panel do
      begin
        Parent := frm;
        Left := 50;
        Top := 50;
        Width := 200;
        Height := 50;
        Caption := 'My Panel';
        ModalResult := mrOK;
      end;

    ShowModal;

    finally
      Palel.Free;
    end;
  finally
    Free;
  end;
end;

[mkinzler]

so

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   pan: Tpanel;
begin
   pan := tpanel.create(self);
   pan.parent := self;
   pan.left := self.Left;
   pan.top := self.top+20;
end;

[mkinzler]

Zitat:

Zitat von mkinzler

so

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   pan: Tpanel;
begin
   pan := tpanel.create(self);
   pan.parent := self;
   pan.left := self.Left;
   pan.top := self.top+20;
end;

[Edit: zu langsam]

[Andidreas1]

Danke Euch beiden.