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