Registriert seit: 13. Aug 2002
17.197 Beiträge
Delphi 10.4 Sydney
|
Re: borderloses formular verschieben ?
28. Apr 2004, 22:00
Du hast dir ja schon fast den Tipp selbst gegeben.
- Stelle fest wenn die linke Maustaste auf deinem Formular gedrückt wird (OnMouseDown)
- Merke sowohl die Mausposition (absolut zum Screen) und die Position des Fensters
- Bei jedem MouseMove berechne die veränderung der Mouse-Position zum Screnn und korrigiere die Fenster-Position
- Wenn die Mousetaste losgelassen wird (OnMouseUp) wird die aktion beendet.
|