Вопрос
Как можно удалить с формы все имеющиеся на ней компоненты TShape. Имена компонентам TShape не присвоены.
Ответ
procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
begin
i := 0;
while i < Form1.ComponentCount do
if Form1.Components[i] is TShape
then Form1.Components[i].Free
else Inc(i);
end;
Из конференции Expert_FAQ
Copyright 
2000-2004 Сообщество Чайников
Контактная информация