parent verme

[akipek]

run time modunda bir panel oluşturuyorum sonra bu panelin içinde başka paneller oluşturmak istiyorum. Parent olayını nasıl yapabilirim.

[lazio]

Fikir vermesi açısından aşağıdakini deneyebilirsin..

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  pnl1, pnl2 : TPanel;
begin
  pnl1 := TPanel.Create(Self);
  pnl1.Parent := Form1;
  pnl1.Width := 300;
  pnl1.Height := 300;
  pnl2 := TPanel.Create(Self);
  pnl2.Parent := pnl1;
  pnl2.Width := 200;
  pnl2.Height := 200;
end;