Club Builder

[Tugui]

Intento arrastrar un formulario con el siguiente código pero no me funciona:

//---------------------------------------------------------------------------
void __fastcall TForm4::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if ( Button == mbLeft )
{
ReleaseCapture();
Perform( WM_SYSCOMMAND, 0xF012, 0 );
}
}
//---------------------------------------------------------------------------
decir que lo que intento es que el formulario se pueda arrastrar pulsando con el ratón en cualquier punto de su superfície.
Una ayudita plz
_________________
¡ADELANTE CON ESTE SUPER FORO!

[_Leo]

A mi me funciona perfectamente. Esta la función que has puesto enlazada al evento OnMouseDown del Form que intentas mover? o has copiado el código nada mas? Solo se me ocurre eso, o bien que estés pulsando sobre algún componente y no sobre alguna parte del Form donde no haya ningún componente.

En que versión de Windows y BCB lo has probado? Por hacer alguna prueba más…

[Tugui]

Vaya hombre , Acabo de probarlo otra vez en una nueva aplicación y SI funciona. Repasaré el código por si hubiera algún error en otro sitio. Gracias _Leo.
_________________
¡ADELANTE CON ESTE SUPER FORO!