Как программно добраться до свойств стиля FixedHeight и FixedWidth?

[FIL]

Интересует вопрос, возможно ли программно добраться до свойств стиля FixedHeight и FixedWidth, чтобы не надо было создавать свой дополнительный стиль?

[rustam_d]

https://delphihaven.wordpress.com/2013/12/30/removing-a-fmx-controls-size-restrictions/

Фил, вот вариант, через одно место, но без стилей.

Если не много форм, то мусорить в типах в начале стоит, ради дальнейшего избавления от стилей.

Это работает, причем не обязательно с спидбатонами.

Но надо смириться, что в дизайне будет изврат.

Изменено 30 августа, 2015 пользователем rustam_d

[rustam_d]

Как то с 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)

[FIL]

Да, этот вариант отлично работает. Ни со стилями заморачиваться не надо, ни доп. ресайзы делать)