[[nightynvid]]

pues por lo general seria usando los eventos mouseup, mousedown y move del formulario pero ya entrados en tema tambien puede ser de esta manera.

Public Class Form1
    Dim bStartDrag As Boolean= False

    Private Sub Form1_MouseCaptureChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseCaptureChanged
        bStartDrag = Not bStartDrag
        If Not bStartDrag Then Me.Opacity = 1
    End Sub

    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
        If bStartDrag Then Me.Opacity = 0.5
    End Sub
End Class

no me regañen por ponerlo en vb, pero es que en mi trabajo no tengo un delphi a la mano