Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.538 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Firemonkey OSX Titelzeile ausblenden

  Alt 2. Sep 2015, 23:03
Hier reicht es schon, dass Du Borderstyle der Form auf None setzt.

Die Anfangsposition für Left und top kannst Du ja z.B. auf 100,100 setzen (oder Formposition auf Screencenter).

Oben in der Form legst Du halt ein TPanel hin, beim MouseDown-Event verwendest Du folgendes:

Delphi-Quellcode:
procedure TForm28.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Self.StartWindowDrag;
end;
Damit kannst Du dann die Form wie sonst auch verschieben. Das funktioniert auf beiden Plattformen (Windows und MAC OS X).

Den fehlenden Schatten der Form kannst Du (so ungefähr) nachahmen, indem Du ein Panel (Align=Client) in Deine Form legst, da ein Shadoweffekt verwendest und für das Panel die Margins auf ca. 15 Pixel setzt. Du musst ein wenig mit den Einstellungswerten für den Shadoweffect spielen, um es passend zu bekommen (Beispiel siehe Screenshot).
Miniaturansicht angehängter Grafiken
shadow.jpg  
  Mit Zitat antworten Zitat