Autor Téma: Zistenie "myForm"  (Přečteno 6227 krát)

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2790
  • Karma: 134
    • Verze Delphi: D2007, XE3, DX10
Re:Zistenie "myForm"
« Odpověď #30 kdy: 17-03-2013, 13:42:01 »
A priradis to bud
Kód: Delphi [Vybrat]
  1. FMasterIntf := Form as IMasterForm;
  2.  
nebo
Kód: Delphi [Vybrat]
  1.   if not Supports(Form, IMasterForm, FMasterIntf) then
  2.     ...
  3.  

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Zistenie "myForm"
« Odpověď #31 kdy: 18-03-2013, 08:10:24 »
Interface som vyhodil. Ak pracujem priamo vo formulári tak GetNieco funguje bez problémov.
Ak to chcem použiť mimo formulára, tak musím v form.onCreate priradiť   
Docked.MasterForm := Self;

 Potom to používam
 DetailVST := MasterForm.GetDetailVST;
 
Otázka znie či to je dobre, alebo mám správne poslať do funkcie daný formulár. Teraz mám zásadne len jeden MasterForm. Ale čo ak ich bude viac?
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.