Esoy recorriendo los componentes de un form y analizando las caracteristicas de los menues, labels, botones, etc de este form de la siguiente forma.
Nota: la funcion Traducir devuelve el texto pasado por parametro en un idioma determinado
beginfor i := Form1.ComponentCount - 1 downto 0 do[i]if Form1.Components.ClassName = 'TLabel' then[i]Form1.Components[i] As TLabel).Caption:= Traducir((Form1.Components As TLabel).Caption)
[i]else if Form1.Components.ClassName = 'TMenuItem' then[i]Form1.Components[i] As TMenuItem).Caption:= Traducir((Form1.Components As TMenuItem).Caption) {*******}
[i]else if Form1.Components.ClassName = 'TButton' then[i]Form1.Components[i] As TButton).Caption:= Traducir((Form1.Components As TButton).Caption);
end;
Esto funciona para todos los tipos de objetos pero para el tipo
TMenuItem o TTabSheet produce un error en ejecucion "
Invalid class typecast
Aguien podria decirme por qué pasa esto?
Gracias
Tota