Nezavolané procedúry formulára

[Stanislav Hruška]

Neviem prečo sa mi nezavolajú procedúry. Vď nižšie

Kód: Delphi [Vybrat]

1.   TBasalForm = class(TForm)
2.   public
3. //  Zbehne
4.     function CloseQuery: Boolean; override;
5. .
6.   TSubForm = class(TBasalForm)
7.   end;
8. .
9.   TfrmsubStadium = class(TSubForm)
10. //  Zbehne
11. procedure TfrmsubStadium.FormDestroy(Sender: TObject);
12. //  Nespustia sa
13. procedure TfrmsubStadium.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
14. procedure TfrmsubStadium.FormClose(Sender: TObject; var Action: TCloseAction);

[Stanislav Hruška]

Našiel som škaredé riešenie. Bol by som rád, keby to fungovalo bez toho.

Kód: Delphi [Vybrat]

1.   for var I := 0 to FFormData.Last.FormObjects.Count -1 do
2.   begin
3.     BasalForm := FFormData.Last.FormObjects[I].BasalForm;
4. .
5.     if Assigned(BasalForm.OnCloseQuery) then
6.       BasalForm.OnCloseQuery(BasalForm, T);      
7.  .    
8.     if Assigned(BasalForm.OnClose) then
9.       BasalForm.OnClose(BasalForm, Ca);
10.   end;

Alebo tie kódy presuniem do FormDestroy.

[Jan Fiala]

FormDestroy je uz pozde na to resit, jestli se má form zavrit (CloseQuery).
Podobne debilni  chovani je v poslednich verzich Delphi u MDI, kde prekopali logiku a nektere udalosti se nespousti nebo spousti jinde nez driv.

[Stanislav Hruška]

FormDestroy je uz pozde na to resit, jestli se má form zavrit (CloseQuery).
Podobne debilni  chovani je v poslednich verzich Delphi u MDI, kde prekopali logiku a nektere udalosti se nespousti nebo spousti jinde nez driv.

Predok má definované CloseQuery, kde riešim zatvorenie formulára. To je v poriadku. Vo FormDestroy riešim veci ako:

• zničenie objektov
• zapísanie hodnôt (ItemIndex, Checked...) do JSON
• nastavenie verejných premenných pre riadenie GUI

Takže nič, čo by som nejako mohol zmeškať. Podľa Tvojho príspevku je najlepšie to riešiť takto.
Ďakujem.