FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
Cita:
...y funcionó OK.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
|||
|
|||
Debo tener algo en mi Delphi 6, el mismo ejemplo me da error.
Gracias nuevamente |
|
|
|