Mover el formulario

[[escafandra]]

Quizás tengas una solución más sencilla a tu problema de esta forma:

void __fastcall TForm1::Label1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if(Button == mbLeft){
    ReleaseCapture();
    Perform(WM_SYSCOMMAND, 0xF012, 0);
  }
}

Saludos.

[ecfisa]

Hola andres_89.

Otra alternativa mas.

Header:

...
private:	
  void __fastcall WMNCHitTest(TMessage& Msg);
  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_NCHITTEST, TMessage, WMNCHitTest)
  END_MESSAGE_MAP(TForm)
...

.cpp

...
void __fastcall TForm1::WMNCHitTest(TMessage &Msg)
{
   TForm::Dispatch(&Msg);
   if (Msg.Result == HTCLIENT) 
     Msg.Result = HTCAPTION;
}
...

Saludos

[andres_89]

Gracias escafandra y ecfisa, me funcionaron correctamente ambas alternativas aparte de ser mas simples.

Saludos.

[ecfisa]

Hola andres_89.

Tengo que disculparme por que no interpreté o leí mal tu consulta cuando mencionas:

...exactamente que al tener presionado el click del mouse sobre el label...

En ese caso aplica el código que te sugirió escafandra, ya que el que te puse si bién mueve el form, no discrimina el control sobre el que se realiza el click, del mismo modo lo hará sobre otro label o incluso sobre el propio form.

Saludos

[andres_89]

Si tienes razón ecfisa, no me habia percatado que movía tambien el Form, ya que lo compile y defrente me fuí al label, el código de escafandra si se centra en el label.

Saludos.