Form ziehen ohne Titelleiste
[Windows 95/98/NT/2000]

27.06.1998


Normalerweise kann man Fenster nur mit Hilfe der Titelleiste positionieren.
    Hier zeige ich Ihnen, wie man ein Fenster positionieren kann,
    gleichgültig wo man "zum Ziehen ansetzt":

ERFORDERLICHE OBJEKTE
-- keine --

FORM-CODE
   Private Declare Function ReleaseCapture Lib "User32" () As Long
   Private Declare Function SendMessage Lib "User32" Alias _
      "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
      ByVal wParam As Long, lParam As Long) As Long
   Private Sub Form_MouseDown(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
      If Button = 1 Then
         Dim RetVal%
         ReleaseCapture
         RetVal% = SendMessage(hwnd, &HA1, 2, 0)
      End If
   End Sub
 
Download - 2 KB