-это называется привидением типов
-чувствуешь разницу:
TPen =
class(TGraphicsObject)
TBrush =
class(TGraphicsObject)
type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);
?
ЗЫ. пока отвечал уже пост отредактировали. получилось не на то ответил
Код:
var
i: Integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TShape then
begin
....
end;
end;