FMX - Borderstyle := None - Snap-Funktion von Windows

[sintronic86]

Hallo Delphi-Gemeinde,

nach langer Zeit ohne Fragen, ist gerade wieder eine aufgetaucht.

Ich habe eine Beispielanwendung erstellt (FMX). Den Borderstyle der Form habe ich auf None gesetzt.
Verschieben des Fensters funktioniert einwandfrei über

Code:

procedure TformMain.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if (Button = TMouseButton.mbLeft) then StartWindowDrag;
end;

Allerdings funktioniert damit die Snap-Funktion von Windows (Fenster mit der Maus an den Bildschirmrand ziehen, und dieses dockt dann automatisch auf halbe Bildschrimgröße an) nicht!

Hat jemand von euch eine Idee, wie dass trotzdem funktioniert, bzw. eine bessere Möglichkeit, Fenster trotz

Code:

Borderstyle := None

verschieben zu können?


Ich danke bereits im Vorraus!
Gruß Björn