Controlar dialogo NO MODAL

[jfafive]

Hola,

Llevo un tiempo buscando una solución a un problema que no puedo terminar de abordar.

Se trata de una aplicacion que tiene una barra de botones.
Cuando pulso un boton, se abre un dialogo que ha de ser NO MODAL, para poder seguir accediendo a la barra de botones sin necesidad de cerrar dicho dialogo.

Hasta aqui va todo bien, Pero...

He de controlar que el botón por el que he accedido a ese dialogo, permanezca isable() mientras esté abierto el dialogo.

He intentado controlar el boton con WHEN lVar, cambiando su estado a .T. o .F., pero como es un dialogo NO MODAL, no consigo que permanezca Disable() mientras el dialogo esté abierto para cambiar a :Enabled() cuando cierre el dialogo.

Ademas, la llamada al dialogo con la barra de botones y el dialogo en si, estan en distintos .PRG.

No se si me he explicado bien pero , ¿se te ocurre alguna solución?

[jfafive]

Hola Javier,

Yo deshabilitaría el botón en el mismo momento de ejecutar su acción, y lo habilitaría en el VALID de la caja de diálogo no modal.

De esta forma, la misma caja de diálogo hace el trabajo automaticamente:

DEFINE BUTTON oBtn OF oBar ACTION ( oBtn:Disable(), CreaCajaDialogo( oBtn ) )

... function CreaCajaDialogo( oBtn )

... DEFINE DIALOG

... ACTIVATE DIALOG oDlg VALID ( oBtn:Enable(), .T. )

... return nil

saludos,
Antonio

[jfafive]

Ok,

funciona perfectamente.
Gracias Antonio.