Delphi borderloses formular verschieben ?

Thema durchsuchen

Ansicht

Themen-Optionen

borderloses formular verschieben ?

Ein Thema von shareholder · begonnen am 28. Apr 2004 · letzter Beitrag vom 29. Apr 2004

Vorheriger Beitrag

Nächster Beitrag

Bernhard Geyer

Registriert seit: 13. Aug 2002
17.223 Beiträge

Delphi 10.4 Sydney

Re: borderloses formular verschieben ?

28. Apr 2004, 21: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.