Potomok TVirtualStringTree - vytvorenie PopupMenu pri vytváraní formulára

[Stanislav Hruška]

Mám komponent TjstVirtualStringTree = class(TVirtualStringTree) a chcem aby sa mi pri tvorbe formulára automaticky vytvorilo TPopupMenu. Riadok

Kód: Delphi [Vybrat]

1.   public
2.     constructor Create(AOwner: TComponent); override;
3.  

to nerieši, lebo mi vôbec nezbehne. Ako sa to správne robí?
Chcem tam potom pridať aj načítanie a nastavenie vlastností. Problém budem mať aj s načítaním vlastností, lebo ich mám uložené v JSON súbore.

[Stanislav Hruška]

Pomohla 16 ročná kniha

Kód: Delphi [Vybrat]

1.     procedure CreateWnd; override;
2.  

[Ondřej Pokorný]

Jseš si vědom toho, proč existuje CreateWnd a kdy je spuštěna? Víš třeba, že může proběhnout několikrát během života TWinControl?

[Stanislav Hruška]

Jseš si vědom toho, proč existuje CreateWnd a kdy je spuštěna? Víš třeba, že může proběhnout několikrát během života TWinControl?

Nie, neviem o tom nič. Tak ako na to?

[Stanislav Hruška]

Keďže nikto nič nenavrhuje, tak si tam dám príznak a môj kód sa spustí len raz.

[Ondřej Pokorný]

Jseš si vědom toho, proč existuje CreateWnd a kdy je spuštěna? Víš třeba, že může proběhnout několikrát během života TWinControl?

Nie, neviem o tom nič.

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Controls_TWinControl_CreateWnd.html

[Ondřej Pokorný]

Keďže nikto nič nenavrhuje

Oni lide taky musi resit veci, ktere nasyti jejich rodiny a ne jenom resit fora 

[Stanislav Hruška]

Oni lide taky musi resit veci, ktere nasyti jejich rodiny a ne jenom resit fora

Ešteže ja musím nakŕmiť akurát tak seba 
Ten odkaz som už prečítal v helpe. Preto som sa rozhodol pre príznak.

[Radek Červinka]

Keďže nikto nič nenavrhuje, tak si tam dám príznak a môj kód sa spustí len raz.

Asi bych predefinoval neco z tohoto:

Kód: Delphi [Vybrat]

1.     procedure Loaded; override;
2.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
3.  

Oboji by melo zafungovat. I kdyz moc nechapu vetu: chcem aby sa mi pri tvorbe formulára automaticky vytvorilo TPopupMenu.


Chapu to tak ze v design modu chces vytvorit popupmenu? Proc ti nastaci predefinovat Create a testovat

Kód: Delphi [Vybrat]

1. csDesigning in ComponentState ?
2.  

[Stanislav Hruška]

I kdyz moc nechapu vetu: chcem aby sa mi pri tvorbe formulára automaticky vytvorilo TPopupMenu.

Každému VST vytváram dynamicky PopupMenu. Podľa potreby.

Chapu to tak ze v design modu chces vytvorit popupmenu?

Vždy. Bez ohľadu na režim design/run.
Tvojim odpovediam nerozumiem , ale to nevadí. Nakoniec som si urobil potomka (komponent) s troma pridanými vlastnosťami. Tie mi to riešia a ostal som pri základe pôvodného riešenia. Ale vypadli mi tie p..y zoznamy.
A celkovo sa mi to dosť zjednodušilo.

[Stanislav Hruška]

Juj, ale som napísal hlúposť

Vždy. Bez ohľadu na režim design/run.

Pomýlil som si design s debbug. Vytváram ich len v runtime.

[Delfin]

constructor TjstVirtualStringTree.Create(AOwner: TComponent);
begin
  inherited;
  PopupMenu := TPopupMenu.Create(Self);
  // napln menu
end;

?

[< z >]

@Delfin:
Když už sis nedal tu práci otestovat své řešení, stačilo si přečíst první příspěvek, kde je jasně naznačené, že toto nejde.

[Ondřej Pokorný]

@Delfin:
Když už sis nedal tu práci otestovat své řešení, stačilo si přečíst první příspěvek, kde je jasně naznačené, že toto nejde.

Že to nejde Standovi, neznamená nic  To by mě zajímalo, přes jakej konstruktor ten Standa ten objekt teda vytváří 

[Stanislav Hruška]

To by mě zajímalo, přes jakej konstruktor ten Standa ten objekt teda vytváří 

Klasicky. Konštruktor som nemenil. Pre VST som doplnil aj vlastnosť KindPopMenu. Pri prechádzaní formulára mu potom podľa tejto vlastnosti (ne)vytvorím patričné PopupMenu.