Лидеры

Извиняюсь, не посмотрел форум! нужно было всего лишь Screen->MousePos() использовать!

Как то с vcl еще привычка была наследоваться от базовых форм. Тут она и пригодилась, в базовой форме можно все перегрузки и кидать, а в наследованной все автоматом цепляется...проверенно, работает! верхняя ссылка глючит, там про перегрузку контрола: type TSpeedButton = class(FMX.StdCtrls.TSpeedButton) protected procedure AdjustFixedSize(const Ref: TControl); override; end; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; implementation {$R *.fmx} { TSpeedButton } procedure TSpeedButton.AdjustFixedSize(const Ref: TControl); begin SetAdjustType(TAdjustType.None); end; ну а далее мое предложение про наследование, зато код без мусора...он в предках...: type TForm2 = class(TForm1)

https://delphihaven.wordpress.com/2013/12/30/removing-a-fmx-controls-size-restrictions/ Фил, вот вариант, через одно место, но без стилей. Если не много форм, то мусорить в типах в начале стоит, ради дальнейшего избавления от стилей. Это работает, причем не обязательно с спидбатонами. Но надо смириться, что в дизайне будет изврат.

android/ios/windows/mac os использую TPath.GetDocumentsPath

посмотрите как сделано тут там есть ссылка на комплект исходников

Обновил представление темы:

купите лицензию на абракадабру !))