Цитата:
|
Сообщение от Bargest
Разумеется.
Код:
if (components[i] is tbutton) and (components[i] is tlabel) and (components[i] is TGroupBox) and (components[i] is tpanel) then
Компонент же не может быть одновременно и кнопкой, и лейблом, и групп боксом, и панелью? Он должен быть чем-то одним. По этому надо серию проверок.
Код:
if (components[i] is tbutton) then
begin
// тут для кнопок
end
else if (components[i] is tlabel) then
begin
// тут для Label
end
else...
|
Но тогда программа не запускается, выдает ошибку "Invalid class typecast".
Это с чем может быть связано?