Esto que pongo aqui no me funciona.
if ::TfolderPage:classname() = oFolderPage1
msginfo ("uno")
elseif ::TfolderPage:classname() = oFolderPage2
msginfo ("dos")
elseif ::TfolderPage:classname() = oFolderPage3
msginfo ("tres")
endif
Hay alguna forma de hacerlo.
Gracias
Paco V
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Nombre oFolderPage
Nombre oFolderPage
Paco,
> Esto que pongo aqui no me funciona.
>
> if ::TfolderPage:classname() = oFolderPage1
> msginfo ("uno")
> elseif ::TfolderPage:classname() = oFolderPage2
> msginfo ("dos")
> elseif ::TfolderPage:classname() = oFolderPage3
> msginfo ("tres")
> endif
>
> Hay alguna forma de hacerlo.
¿En qué evento necesitas ese código?
--
Un saludo,
José F. Giménez
> Esto que pongo aqui no me funciona.
>
> if ::TfolderPage:classname() = oFolderPage1
> msginfo ("uno")
> elseif ::TfolderPage:classname() = oFolderPage2
> msginfo ("dos")
> elseif ::TfolderPage:classname() = oFolderPage3
> msginfo ("tres")
> endif
>
> Hay alguna forma de hacerlo.
¿En qué evento necesitas ese código?
--
Un saludo,
José F. Giménez
Nombre oFolderPage
Jose, es un ejemplo. Necesitaria tenerlo en una funcion a la que llamo para
que me escriba una serie de datos.
En mi funcion sustituiria msgi.... por alias := ::oDbfDataset1
Seguro que hay formas mas sencillas de hacerlo, pero ....
Paco V
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Paco,
>
>> Esto que pongo aqui no me funciona.
>>
>> if ::TfolderPage:classname() = oFolderPage1
>> msginfo ("uno")
>> elseif ::TfolderPage:classname() = oFolderPage2
>> msginfo ("dos")
>> elseif ::TfolderPage:classname() = oFolderPage3
>> msginfo ("tres")
>> endif
>>
>> Hay alguna forma de hacerlo.
>
>¿En qué evento necesitas ese código?
>
>
>--
>Un saludo,
>
>José F. Giménez
>
>
que me escriba una serie de datos.
En mi funcion sustituiria msgi.... por alias := ::oDbfDataset1
Seguro que hay formas mas sencillas de hacerlo, pero ....
Paco V
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Paco,
>
>> Esto que pongo aqui no me funciona.
>>
>> if ::TfolderPage:classname() = oFolderPage1
>> msginfo ("uno")
>> elseif ::TfolderPage:classname() = oFolderPage2
>> msginfo ("dos")
>> elseif ::TfolderPage:classname() = oFolderPage3
>> msginfo ("tres")
>> endif
>>
>> Hay alguna forma de hacerlo.
>
>¿En qué evento necesitas ese código?
>
>
>--
>Un saludo,
>
>José F. Giménez
>
>
Nombre oFolderPage
Paco,
> Jose, es un ejemplo. Necesitaria tenerlo en una funcion a la que llamo
> para
> que me escriba una serie de datos.
>
> En mi funcion sustituiria msgi.... por alias := ::oDbfDataset1
>
> Seguro que hay formas mas sencillas de hacerlo, pero ....
Te lo preguntaba porque suponía que tenías un mismo evento asignado a varios
controles y necesitabas saber qué control lo había disparado. Para esos
casos sólo hay que comparar oSender con cada control. Sería algo así:
METHOD Button1Click( oSender ) CLASS TForm1
IF oSender == ::oButton1
...
ELSEIF oSender == ::oButton2
...
--
Un saludo,
José F. Giménez
> Jose, es un ejemplo. Necesitaria tenerlo en una funcion a la que llamo
> para
> que me escriba una serie de datos.
>
> En mi funcion sustituiria msgi.... por alias := ::oDbfDataset1
>
> Seguro que hay formas mas sencillas de hacerlo, pero ....
Te lo preguntaba porque suponía que tenías un mismo evento asignado a varios
controles y necesitabas saber qué control lo había disparado. Para esos
casos sólo hay que comparar oSender con cada control. Sería algo así:
METHOD Button1Click( oSender ) CLASS TForm1
IF oSender == ::oButton1
...
ELSEIF oSender == ::oButton2
...
--
Un saludo,
José F. Giménez