Firemonkey Form ohne TitelBar verschieben

[Jonas Shinaniganz]

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

Delphi-Quellcode:

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

[Jonas Shinaniganz]

Habe diese scheinbar Asiatische YoutubeVideo gefunden in welchem jemand die MouseEvents überschreibt...

Sehr merkwürdige FontSettings hat der Kerl :)

Es tut allerdings was Ich erreichen wollte :D

Zitat:

http://www.youtube.com/watch?v=G03tOmwFhBs