TMessageBox:Fuente

zeasoftware · Mensaje por **zeasoftware** » Mar Feb 06, 2007 12:31 am

podrian proporcionarme el fuente de la clase TMessageBox?
lo quiero para aplicarle la opcion de semi-transparente que han
propporcionado en otro mensaje.
o Si alguien y alo hizo, si podria compartilo con un servidor y el foro?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"

YouTube · Mensaje por **ignacio** » Mar Feb 06, 2007 12:38 pm

Ramón,
Me temo que no, lo siento. No obstante con este Email te incluyo la clase
TMessageBox modificada para que tenga un evento OnShow y ahí puedes cambiar
el estilo de la ventana para que tenga transparencia.
Ten encuenta que de momento en IDE no te saldrá el evento en el componente y
por lo tanto lo tendrás que sobrecargarlo por código con algo parecido a
esto:
METHOD MessageBox1Show( oSender ) CLASS TForm1
SetWindowLong( oSender:Handle, GWL_EXSTYLE, nOr( GetWindowLong(
oSender:Handle, GWL_EXSTYLE ), WS_EX_LAYERED ) )
SetLayeredWindowAttributes( oSender:Handle, 0, 64, LWA_ALPHA )
RETURN Nil
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=45c7be69@news.xailer.com...]45c7be69@news.xailer.com...[/email]
> podrian proporcionarme el fuente de la clase TMessageBox?
>
> lo quiero para aplicarle la opcion de semi-transparente que han
> propporcionado en otro mensaje.
>
> o Si alguien y alo hizo, si podria compartilo con un servidor y el foro?
>
> Gracias.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> visita mi "venta de garage"
>
>

Attached files IDialogs.rar (9.5 KB)Â

zeasoftware · Mensaje por **zeasoftware** » Mar Feb 06, 2007 1:56 pm

gracias.
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45c868b6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Me temo que no, lo siento. No obstante con este Email te incluyo la clase
> TMessageBox modificada para que tenga un evento OnShow y ahí puedes
> cambiar el estilo de la ventana para que tenga transparencia.
>
> Ten encuenta que de momento en IDE no te saldrá el evento en el componente
> y por lo tanto lo tendrás que sobrecargarlo por código con algo parecido a
> esto:
>
> METHOD MessageBox1Show( oSender ) CLASS TForm1
>
> SetWindowLong( oSender:Handle, GWL_EXSTYLE, nOr( GetWindowLong(
> oSender:Handle, GWL_EXSTYLE ), WS_EX_LAYERED ) )
> SetLayeredWindowAttributes( oSender:Handle, 0, 64, LWA_ALPHA )
>
> RETURN Nil
>
> Saludos,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=45c7be69@news.xailer.com...]45c7be69@news.xailer.com...[/email]
>> podrian proporcionarme el fuente de la clase TMessageBox?
>>
>> lo quiero para aplicarle la opcion de semi-transparente que han
>> propporcionado en otro mensaje.
>>
>> o Si alguien y alo hizo, si podria compartilo con un servidor y el foro?
>>
>> Gracias.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>> visita mi "venta de garage"
>>
>>
>
>
>

zeasoftware · Mensaje por **zeasoftware** » Mar Feb 06, 2007 5:44 pm

se bota el sistema al presentar un dialogo, yincluso sin decir "pio".
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45c868b6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Me temo que no, lo siento. No obstante con este Email te incluyo la clase
> TMessageBox modificada para que tenga un evento OnShow y ahí puedes
> cambiar el estilo de la ventana para que tenga transparencia.
>
> Ten encuenta que de momento en IDE no te saldrá el evento en el componente
> y por lo tanto lo tendrás que sobrecargarlo por código con algo parecido a
> esto:
>
> METHOD MessageBox1Show( oSender ) CLASS TForm1
>
> SetWindowLong( oSender:Handle, GWL_EXSTYLE, nOr( GetWindowLong(
> oSender:Handle, GWL_EXSTYLE ), WS_EX_LAYERED ) )
> SetLayeredWindowAttributes( oSender:Handle, 0, 64, LWA_ALPHA )
>
> RETURN Nil
>
> Saludos,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=45c7be69@news.xailer.com...]45c7be69@news.xailer.com...[/email]
>> podrian proporcionarme el fuente de la clase TMessageBox?
>>
>> lo quiero para aplicarle la opcion de semi-transparente que han
>> propporcionado en otro mensaje.
>>
>> o Si alguien y alo hizo, si podria compartilo con un servidor y el foro?
>>
>> Gracias.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>> visita mi "venta de garage"
>>
>>
>
>
>

YouTube · Mensaje por **ignacio** » Mar Feb 06, 2007 6:24 pm

Ramón,
Se me olvido darte un archivo adicional. Lo siento. Espero que ahora
funcione.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
news:45c8b088$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> se bota el sistema al presentar un dialogo, yincluso sin decir "pio".
>
> Saludos.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> visita mi "venta de garage"
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:45c868b6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> Me temo que no, lo siento. No obstante con este Email te incluyo la clase
>> TMessageBox modificada para que tenga un evento OnShow y ahí puedes
>> cambiar el estilo de la ventana para que tenga transparencia.
>>
>> Ten encuenta que de momento en IDE no te saldrá el evento en el
>> componente
>> y por lo tanto lo tendrás que sobrecargarlo por código con algo parecido
>> a
>> esto:
>>
>> METHOD MessageBox1Show( oSender ) CLASS TForm1
>>
>> SetWindowLong( oSender:Handle, GWL_EXSTYLE, nOr( GetWindowLong(
>> oSender:Handle, GWL_EXSTYLE ), WS_EX_LAYERED ) )
>> SetLayeredWindowAttributes( oSender:Handle, 0, 64, LWA_ALPHA )
>>
>> RETURN Nil
>>
>> Saludos,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
>> news:[email=45c7be69@news.xailer.com...]45c7be69@news.xailer.com...[/email]
>>> podrian proporcionarme el fuente de la clase TMessageBox?
>>>
>>> lo quiero para aplicarle la opcion de semi-transparente que han
>>> propporcionado en otro mensaje.
>>>
>>> o Si alguien y alo hizo, si podria compartilo con un servidor y el foro?
>>>
>>> Gracias.
>>> --
>>> Ramón Zea
>>> ramonzea@yahoo.com
>>> zeasoftware@hotmail.com
>>> zeasoft.movil@hotmail.com
>>> http://www.paginasprodigy.com/zeasoft/
>>> visita mi "venta de garage"
>>>
>>>
>>
>>
>>
>
>

Attached files MessageBox.rar (2.9 KB)Â