Invalid call typecast - As TMenuItem
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 begin for i := Form1.ComponentCount - 1 downto 0 doend;[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 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 |
Cita:
Prueba lo siguiente, si ves que te puede ser útil ya dirás... Simplemente recorrre todos los caption y en lugar de traducirlo le añade al final "-a".
NOTA: Éste código funciona con TTabSheet Y TMenuItems. NOTA2: En tu código no veo nada raro, así que lo he probado y tb funciona con TTabSheet Y TMenuItems. |
Muy bueno
Aunque debo analizar no solo captions (propiedades de grillas, charts, etc) es muy buena solucion.
Mi ejemplo, en que version de Delphi lo probaste? Muchisimas gracias. Tota |
Cita:
...y funcionó OK. |
Debo tener algo en mi Delphi 6, el mismo ejemplo me da error.
Gracias nuevamente |
La franja horaria es GMT +2. Ahora son las 06:07:31. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi