Autor Téma: Potomkovia z TMS TxxxItemEditor  (Přečteno 133 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5615
  • Karma: 42
    • Verze Delphi: W10 + Delphi 10.4 professional
Potomkovia z TMS TxxxItemEditor
« kdy: 15-01-2021, 17:11:53 »

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.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5615
  • Karma: 42
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Potomkovia z TMS TxxxItemEditor
« Odpověď #1 kdy: 15-01-2021, 17:39:36 »
Už to je v poriadku. Nedal som riadok procedure Register;
Funguje to.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.