[sabroso]

Empezado por roman

Ya entiendo.

Prueba modificar el truco así:

Código Delphi [-]
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;

  if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then
    Msg.Result := htCaption;
end;

De esta forma sólo permites el movimiento si el click es con el botón izquierdo y dejas el derecho libre.

// Saludos

Hola trate de implementar este codigo pero no funciona quizas le falta algo