Проблема при создании своего контрола в FMX-приложении

[cooper72]

Использую XE5, столкнулся с проблемой:
При создании стандартных(fm) контролов в fmx-приложении в runtime, все работает:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  varControl: TPanel;
begin
  varControl := TPanel.Create(Self);
  varControl.Parent := Self;
end;

Но когда создаю свой класс, точно такой-же как TPanel,

  TMyControl = class(TStyledControl)
  protected
    ...
  public
    ...
  published
    ...
  end;

и пытаюсь создать контрол в runtime, то он не отображается:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  varControl: TMyControl;
begin
  varControl := TMyControl.Create(Self);
  varControl.Parent := Self;
  varControl.SetBounds(0, 0, 100, 100);
end;

Что изменилось в механизме создания контролов в fmx? Возможно ли создавать свои контролы на основе TStyledControl ?

[cooper72]

Всем спасибо за участие.
При создании контрола в FMX, необходимо переопределять GetDefaultStyleLookupName

function TMyControl.GetDefaultStyleLookupName: string;
begin
 Result := 'buttonstyle';
end;

[Stilet]

Хм... Я этого не знал.
Хорошо что ты выложил ответ - кому-то пригодится.