Mover el formulario

[andres_89]

Hola a todos,

como podria mover mi formulario pero a través de un Label, exactamente que al tener presionado el click del mouse sobre el label este se mueva mientras muevo mouse, igual que el borde del formulario pero con el Label.

Gracias.

[andres_89]

Buscando por todo el foro pude encontrar lo que queria, el enlace es el siguiente:

http://www.clubdelphi.com/foros/show...ver+formulario

saludos.

[[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.