This example shows how to use the TStyleManager.SetStyleFromFile method in order to set the style of the form at run time.
To build and test this example create a new Multi-Device Application and add the following code to the OnCreate event handler of the form. Also include the FMX.Styles unit in the uses clause.
Note: You can also set the style of a form at design time, using a style book component.
procedure TForm2.FormCreate(Sender: TObject); var OpenDialog: TOpenDialog; begin OpenDialog := nil; try OpenDialog := TOpenDialog.Create(self); OpenDialog.Filter := 'Style Files|*.style';//Use a filter to show only the style files. if OpenDialog.Execute() then //Show the dialog and if the user clicked OK, TStyleManager.SetStyleFromFile(OpenDialog.FileName);//load the selected style and set it as the active style. finally OpenDialog.Free(); end; end;