Forum: Cross-Platform-Entwicklung
by sintronic86,
27. Jan 2022
Leider bekommt er das zwischen MouseDown und MouseUp nicht hin, den Borderstyle zu ändern!
Selber bauen wäre zwar machbar, aber damit sind ja die "schönen" Windows-Effekte leider nicht mehr da.
P.S.: Ich nutze Windows 11!
Forum: Cross-Platform-Entwicklung
by sintronic86,
27. Jan 2022
@KodeZwerg
Das wäre ziemlich schade. Letztendlich habe ich den Border nur entfernt, weil ich so weit mehr mit der Fensteroptik spielen kann, ohne die windowseigene Titelleiste etc. verwenden zu müssen.
Hättest du denn für eben diesen Optik-Fall eine andere Lösung, die die Snap-Funktion mit unterstützt?
Forum: Cross-Platform-Entwicklung
by sintronic86,
27. Jan 2022
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
procedure TformMain.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin