Delphi > Firemonkey

Trik na tvorbu sestavy komponent

(1/1)

raul:
Zdarec,
je nejaky trik, jak seskladat nekolik komponent visualne a udelat z nich komponentu ?

Resim si tu jeden visualizator, ktery obsahuje cca 50 komponent, a otevrene, psat to jako kod je des a hruza (zvlaste pri zmenach). Prvotni nastrel jsem delal jako form s tim, ze jsem si pak ten form rucne prevedl do zdrojaku (zamysleni: proc se vlastne form uklada jako text, misto primo jako zdroj??)

Nyni to potrebuju trochu dost prehrabat a jen create ma par set radku (par desitek komponent prevazne tshape potomku, ale i layouts, a par dalsich).

Tzn trik ? (Vytvorit to jako form a prehodit parenta ? Frames (docela se nedoporucovaly)).

Klasika FMX Windows aplikace, D10.3.3 CE

Radek Červinka:
Umel to budto https://www.mmx-delphi.de/ nebo CnPack.

Jinak ve FMX uspesne pouzivam "Vytvorit to jako form a prehodit parenta"

raul:
A ten trik vytvorit jako form a prehodit parenta - nema to nejaky sideefects, ktery je treba osefovat ?? (Mam jich tam asi 6 tech visualizatoru (v main okne, v prepinani pohledu, v konfiguracnim okne, atd - nastaveni si primarne sdili)

Radek Červinka:

--- Kód: Delphi ---class procedure TfrmBasic.gDock(owner: TComponent; oParent: TControl; cl: TfrmBasicClass; var instance: TfrmBasic);var x: Integer;begin  for x := 0 to oParent.ChildrenCount - 1 do  //xxxxxxxxx    TControl(oParent.Children[x]).Visible := False;   if instance = nil then  begin    instance := cl.Create(owner);    instance.ltChild.Parent := oParent;  end;  instance.ltChild.Visible := True;  if assigned(instance.OnResize) then    instance.OnResize(instance);end; 
Ten TfrmBasic ma jako zaklad TLayout a s tim se pracuje - vse ostatni je pod nim, napsal jsem to uz davno a funguje to dobre, takze si nektere detaily nepamatuji, ale co si pamatuji, ze se do stejneho parent dokovalo x layoutu, s tim, ze vzdycky byl videt jen jeden (jak uzivatel stisknul tlacitko) - to je ten radek s tim xxxx. Zaroven to funguje tak, ze pokud tam uz je, tak se jen zviditelni. Jak to mam, tak to davam :-)

raul:
Diky

Navigace

[0] Seznam témat

Přejít na plnou verzi