No me recuerdo quien o de donde viene el aporte pero lo probe y funciono
:-)
METHOD FormLButtonDown( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
MoveActiveWindow(::Handle)
RETURN Nil
//---------------------------------------------------------- --------------------
Procedure MoveActiveWindow(hWnd)
PostMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Return
"Fernando Leal" <
visitante32@hotmail.com> escribió en el mensaje
news:[email=4a82d831@svctag-j7w3v3j....]4a82d831@svctag-j7w3v3j....[/email]
> Cierto,
>
> Pero no se puede mover la ventanas
>
> Las ventanas del Norton haciendo click en el botón izquierdo del mouse y
> sin soltar. Puedes mover la ventana.
> Aún quedaría por resolver el redondear las esquinas de la ventana.
>
> Con estos dos cambios se mejora la interface

>
> Saludos
>