Xailer & OZ Software

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

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

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
>
>

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