title image


Smiley Re: Form ohne Titelleiste bewegen?
Hallo,



+++ Deklarationsteil +++



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 Any) As Long



Private Const HTCAPTION = 2

Private Const WM_NCLBUTTONDOWN = &HA1

Private Const WM_SYSCOMMAND = &H112



+++ Quelltext +++



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ReleaseCapture

SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub



MfG, AndyG

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: