Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Firemonkey Form ohne Titelleiste verschieben


ChrisCross - Di 24.12.13 11:00
Titel: Firemonkey Form ohne Titelleiste verschieben
Hallo,

für VCL habe ich folgenden Code gefunden, um das Fenster ohne Titelleiste zu verschieben:


Delphi-Quelltext
1:
2:
3:
4:
 if ssLeft in Shift then begin
ReleaseCapture;
Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;


In Fiermonkey wird folgende Fehlermeldung ausgegeben:

[dcc32 Fehler] Unit1.pas(31): E2003 Undeklarierter Bezeichner: 'Perform'
[dcc32 Fehler] Unit1.pas(31): E2003 Undeklarierter Bezeichner: 'HTCAPTION'

Kennt jemand einen alternativ Code?

Frohe Weihnachten, Christoph


jaenicke - Di 24.12.13 12:45

Die genannte Funktionalität beruht auf der Windows API und funktioniert daher mit Firemonkey nicht. Du musst das daher selbst implementieren, das sind ja nur wenige Zeilen Code. OnMouseDown, OnMouseMove und OnMouseUp gibt es ja auch bei Firemonkey. ;-)