Any idea on how to add a drop shadow effect to a FireMonkey form? Using styles maybe?

Comments

  1. Thanks, Scott Pritchard. I'll give it a shot.

    ReplyDelete
  2. The only problem I see with scotts approach would be the form not quite filling the screen when maximised - but it should be easy enough to hide or remove the drop shadow when the maximise button i pressed - I really like that idea Scott Pritchard - nice one!

    ReplyDelete
  3. In case one wants to use the system shadow on Windows, here is a great idea from Rodrigo Ruz:

    {$IFDEF MSWINDOWS}
    uses
      WinApi.Windows,
      FMX.Platform.Win;
    {$ENDIF}

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      {$IFDEF MSWINDOWS}
       SetClassLongPtr(FmxHandleToHWND(Self.Handle),  GCL_STYLE, GetClassLongPtr(FmxHandleToHWND(Self.Handle), GCL_STYLE) or CS_DROPSHADOW);
      {$ENDIF}

    ReplyDelete

Post a Comment