TMessageBox . 1.3b
Publicado: Mié Mar 28, 2007 8:01 pm
Tengo una funcion:
WITH OBJECT oMessageBox1 := TMessageBox():New()
:cTitle := cTitle
:cText := cText
:nStyle := mbYESNO
:oIcon := "icoMSGQuestion"
:aButtons := { "&Si", "&No" }
:Create()
:Run()
END
en la 1.3a usaba:
Return ( oMessageBox:Run() == 1 )
y funcionaba, ahora, no me funcionaba, pero lei la documentacion por lo que lo cambie a:
Return ( oMessageBox:nResult == mrOK )
Pero... nResult regresa con valor de 6, y mrOK es 1
esto por que?
Gracias.
--
Ramón Zea
01.993.194.14.27
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft@prodigy.net.mx
zeasoft.movil@hotmail.com
zeasoft@prodigy.net.mx
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
--
WITH OBJECT oMessageBox1 := TMessageBox():New()
:cTitle := cTitle
:cText := cText
:nStyle := mbYESNO
:oIcon := "icoMSGQuestion"
:aButtons := { "&Si", "&No" }
:Create()
:Run()
END
en la 1.3a usaba:
Return ( oMessageBox:Run() == 1 )
y funcionaba, ahora, no me funcionaba, pero lei la documentacion por lo que lo cambie a:
Return ( oMessageBox:nResult == mrOK )
Pero... nResult regresa con valor de 6, y mrOK es 1
esto por que?
Gracias.
--
Ramón Zea
01.993.194.14.27
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft@prodigy.net.mx
zeasoft.movil@hotmail.com
zeasoft@prodigy.net.mx
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
--