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

Auf die selbe Art:

zusammenfalten · markieren

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;

so

markieren

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;

Zitat von mkinzler:

so

markieren

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]

Danke Euch beiden.