Huhu,
das Problem, wie verschiebe Ich eine Form ohne Titelbar wurde ja schon ein paar mal gelöst.
Delphi-Quellcode:
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
Jetzt möchte Ich in Firemonkey (Dort lässt sich dies leider nicht lösen weil es scheinbar kein "Perform" gibt) mit Klick auf einen Button das verschieben ermöglichen.
Das ganze nur beim Klick auf die linke Maustaste, dafür die If Bedingung.
Mein Ansatz:
Delphi-Quellcode:
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
if (Shift = ssLeft) then
begin
// ON MOVE DRAG FORM
end;
end;
Leider komme Ich nicht wirklich weiter... Die Möglichkeit meine Mausposition anzuzeigen geht bei Firemonkey über
Platform.GetMousePos
Allerdings brauche Ich ja die alte und neue Position um eine Richtung festzustellen...
Was nur not vielleicht noch gehen würde wäre OnMouseDown Position Merken und OnMouseUp die Position dann einmalig setzen...
Aber ich würde mir lieber etwas in der Art, wie eine Simulation des TitelBar Klicks beim ButtonKlick wünschen. Da habt Ihr doch bestimmt tolle Ideen?
Grüße