Ventana tipo Messenger

[juanchi]

Hola, gracias por contestar. Revisaré los ejemplos que pusieron. Con respecto al ejemplo que pusiste Seoane, quisiera preguntarte como hacer para achicar las dimensiones de la ventana. Otro problema es que al agregarle paneles y una imagen no se ven correctamente, es como si la computadora se quedara sin memoria.


Saludos

[roman]

No sé si te refieres al ejemplo que yo puse y que comentó seoane, o al ejemplo del QuickHull de seoane. Si es lo primero, sería bueno que detallaras más qué es lo que falla o qué es lo que tienes en la ventana. Te pongo una versión modificada que incluye un par de labels, un par de edits y una imagen dentro del panel principal. Como en el otro caso, puedes probar directamente el ejecutable si tienes Delphi 7, si no, basta que recompiles las fuentes.

Agrego

Si con lo de achicar las dimensiones te refieres a que la ventana emergente es de tamaño fijo, eso es así porque se construye con los parámetros (método CreateParams)

Código Delphi [-]
Params.Style := WS_POPUP or WS_DLGFRAME;

En el nuevo ejemplo le he cambiado a:

Código Delphi [-]
Params.Style := WS_POPUP or WS_SIZEBOX;

Con eso, el borde queda igual, pero ya se puede redimensionar.

// Saludos

[juanchi]

Hola Román, me refería a tu código. Es eso justamente lo que preguntaba. Gracias.



Saludos.