Удаление объектов

[_-Re@l-_]

Как можно удалить все объекты одного типа(например, все Shape'ы) с формы, чтобы не прописывать удаление каждого(Shape1.Destroy, и т.п.)?

[baster128]

(Sender as TShape).Free

Рекомендую именно фри, о работает корректнее.

[_-Re@l-_]

Ясно.Спасибо.

[_-Re@l-_]

А можно ли таким способом создавать их?

[Пепел Феникса]

не выйдет, так как конструктор иначе немного применяется.

[_-Re@l-_]

Жаль...........

[evg_m]

for j:=1 to 10 do
begin
  r:=TShare.Create(self);
  r.parent:=self.panel1;
  r.top:=0;
  r.left:=j*100;
  r.width:=70;
endl

[baster128]

В цикле создавай. Нужен массив из значений объектов. И в цикле каждому объекту вызываем Create. Соответственно после выполнения работы также в цикле вызываем Free.