Mam taki ot element na Formie - TPanel o nazwie Panel1. Mam na nim 5 elementów TLabel i 5 przycisków TButton. Jak usunąć je wszystkie z tego panelu?
0
0
var i : Integer;
for i:=0 to Panel1.ControlCount-1 do
Panel1.Controls[i].Destroy();
0
Wyświetla się wtedy "List index out of bounds" i wywala program.
Dodam, że te przyciski generuję w locie, labele tak samo.
0
for i := Panel1.ControlCount - 1 downto 0 do
Panel1.Controls[i].Free;
0
Można też bez zmiennej:
while (Panel1.ControlCount > 0) do
Panel1.Controls[0].Free;