Hola,
Haciendo algunas pruebas lo primero que me llamó la atención fue lo que se dice en la ayuda en Delphi sobre "TransparentColor":
Cita:
|
Empezado por Ayuda de Delphi
TransparentColor does not work on all systems. The application must be running under Windows 2000 or better, with adequate hardware.
|
Quiere decirse que tal vez sea una cuestión de "hardware". Digo otra vez que en las pruebas que he hecho no tengo problemas al arrastrar el formulario utilizando el código que arriba escribiste. Sin embargo, sí que tengo problemas "de rendimiento" si maximizo el formulario, por ejemplo: tarda bastante en hacerlo y el efecto no es muy agradable.
¿Entonces cuál solución te doy? Pues lo que te he dicho, que, si no es una solución, al menos es información que tal vez puedas aprovechar. Por cierto, las pruebas de que hablo las he llevado a cabo en Delphi 7 bajo Windows XP SP2 corriendo en un AMD Athlon 1000 Mhz con 256 MB de memoria RAM.
Yendo un poco más allá diré que primeramente se me ocurrió algo así:
Código Delphi
[-]
TransparentColor := false;
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
TransparentColor := true;
Pero, ya digo más arriba que no tengo los problemas de que hablas al arrastrar el formulario, concretamente, y además este código no ofrece resultados satisfactorios, al menos para mi gusto
Lamento no poderte decirte más que lo que he dicho.