Cómo agregar un botón de cierre a una ventana de Windows

Para implementarlo es necesario definir los siguientes procesos:

1.

Definir el proceso DrawCaptButton La función de este proceso es dibujar el botón. en la posición especificada.

En el proceso, use la función GetSystemMetrics de win32 para obtener el tamaño de la ventana y el tamaño del botón de título; use la función Delphi Bounds para definir un rectángulo, que es la posición del nuevo botón; luego defina un pequeño rectángulo, este rectángulo es para completar el texto, finalmente, se llama a la función más útil drawbuttonface en Delphi para dibujar el botón;

2.

Cada vez que operemos sobre la ventana, por ejemplo maximizar o minimizar, el nuevo botón desaparecerá. Para solucionar este problema modificamos todos los mensajes a manejar. Para ello, escriba un procedimiento para cada mensaje que vuelva a dibujar el botón.

A. Defina el proceso WMNCPaint(var

Msg: TWMNCPaint) y procese el mensaje WM_NCPaint.

B. Defina el proceso WMNCActivate(var Msg

: TWMNCActivate) para procesar el mensaje WM_NCACTIVATE.

C. Defina el proceso WMSetText(var

Msg: TWMSetText) para procesar el mensaje WM_SETTEXT.

D. Defina el proceso WMNCHitTest(var Msg

:TWMNCHitTest) para procesar el mensaje WM_NCHITTEST.

E. Defina el proceso WMNCLButtonDown(var Msg:

TWMNCLButtonDown) para procesar el mensaje WM_NCLBUTTONDOWN.