Potomkovia z TMS TxxxItemEditor

[Stanislav Hruška]

Používam  TSimpleItemEditor, TPeriodItemEditor a TDefaultItemEditor. Všetky dedia z TCustomItemEditor.
Chcem z nich odvodiť vlastné komponenty. Chcem na TxxxPlannerItemEditForm pridať CheckBox + nejakú funkčnosť.
.
Môj neúspešný pokus, pri ktorom som nepredpokladal úspech. Jednotka jstPlanSimpleEdit (PlanSimpleEdit) je formulár.
Ako to mám urobiť, aby

• to z hľadiska OOP bolo v poriadku
• mi to fungovalo
• mal som čo najmenej roboty. Viem, že obsah formulára si môžem skopírovať z dfm

Kód: Delphi [Vybrat]

1. type
2.   TSimplePlannerItemEditForm = class(TForm)
3.  
4.  
5.   TjstSimpleItemEditor = class(TCustomItemEditor)
6.  
7.  
8. procedure Register;
9. begin
10.   RegisterComponents('Jasot', [TjstSimpleItemEditor]);
11. end;

Bojujem tu naraz s dvoma formulármi. Samotná jednotka a formulár v nej.

[Stanislav Hruška]

Už to je v poriadku. Nedal som riadok procedure Register;
Funguje to.