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
verschieben zu können?
Ich danke bereits im Vorraus!
Gruß Björn