inherit of TTMSFMXCalendar not works

FMX TMS FMX UI Pack
1

Hello,
I'm trying to inherit of the TTMSFMXCalendar Control like :slight_smile:

unit SU.FMX.Calendar;

// Ableitung und Erweiterung von TMSFMXButton

interface

uses Classes, Fmx.TMSCalendar;

type

TSUFMXCalendar = class;

// Button Komponente
TSUFMXCalendar = class(TTMSFMXCalendar)
private
protected
public
constructor Create(AOwner: TComponent); override;
published
end;

procedure Register;

implementation

// Komponente Registrieren
procedure Register;
begin
RegisterComponents('SU FMX', [TSUFMXCalendar]);
end;

constructor TSUFMXCalendar.Create(AOwner: TComponent);
begin
inherited;
Width := 400;
Height := 360;
end;

end.

But if I'm using the new component the calendar is not shown. I have an empty rectangle. What do I wrong?

Best wishes
Bernhard Roos

2

Please read this tip: https://tmssoftware.com/site/tmsfmxpack.asp?s=faq&show=871
The tip is based on TTMSFMXTableView but is also applicable for TTMSFMXCalendar