Hola.
Por lo que pude leer
aquí, el problema se presenta por el uso de
SetWindowRgn, ya que este impide que se vea o dibuje la ventana
mas allá de el área designada por la misma.
Cita:
This function sets the window region of a window. The window region determines the area within the window where the system permits drawing.
The system does not display any portion of a window that lies outside of the window region.
|
Para solucionar este problema debes de cambiar el tamaño de la región acorde con el nuevo tamaño del componente.
realicé una prueba con el componente cambiando:
Código Delphi
[-]procedure TDBNewEditJL.WMSize(var Message: TWMSize);
var r : TRect;
begin
inherited;
r := ClientRect;
SetRound(True);
InvalidateRect(handle,@r,false);
RedrawWindow(Handle,nil,0,RDW_FRAME + RDW_INVALIDATE);
end;
Lo cual evita que se produzca el efecto que comentas.