Form / Child e TButton

[Maverich]

Ho creato un semplie test Form / Child creato a run time, e mi accorgo che :
- se chiudo il Child con un TButton collegato ad una TAction, dopo il FreeAndNil solleva eccezione.
- se invece utilizzo un TSpeedButton collegato alla stessa TAction , non viene sollevata alcuna eccezione.

Provate l'esempio con Button e cliccando su Button e TSpeedButton per chiudere il child, vedrete la differenza di comportamento.
Funziona anche avviato il child da Button e chiuso con TSpeedButton.

Certo portrebbe essere un problema di IDE, ma dubito, avviene anche nell'eseguibile.

[xinyiman]

Non esiste la unt_Base nel tuo allegato! Quindi non compila!

[Maverich]

sorry, provvedo.

[xinyiman]

Ho provato e confermo l'anomalia. Ora provo a vedere se capisco il perchè. Se non ci riesco sarebbe il caso di chiedere supporto sul forum ufficiale!

[xinyiman]

Non sono riuscito a trovare il bandolo della matassa. Sembra collegato all'oggetto chiamante! Prova a chiedere sul forum ufficiale, e se poi risolvi facci sapere come hai fatto. E' curiosa questa cosa!

[Maverich]

Ho provato a registrami sul Forum Inglese, ma niente non accetta:

1 - inserisco le lettere visualizzate (es: HCNATU)
2 - scrivo Lazarus al contrario (surazaL)
3 - inserisco 1+2 (es: HCNATUsurazaL)

ti risultano problemi ?

[xinyiman]

Che io sappia nessun problema, ma rispetti maiuscole e minuscole?!

[nomorelogic]

3 - inserisco 1+2 (es: HCNATUsurazaL)

1+2 = three

[Maverich]

E' vero, non ci avevo proprio pensato,
registrazione effettuata grazie.

[Maverich]

Non sono riuscito a trovare il bandolo della matassa. Sembra collegato all'oggetto chiamante! Prova a chiedere sul forum ufficiale, e se poi risolvi facci sapere come hai fatto. E' curiosa questa cosa!

ho avuto questa risposta
http://www.lazarus.freepascal.org/index.php/topic,16618.0.html

"Also, not related to the error, but you have a memory leak relating to the fChild global variable. If you create 2 forms, they both originally tried to be included in that 1 same variable. But second form overrides this, leaving first form floating in memory on its own."

ma francamente non capisco come un'stanza "fChild" ad un form non in memoria possa creare il problema;

Inoltre, non legati all'errore, ma hai una perdita di memoria concernenti la variabile globale fChild. Se si creano 2 forme, entrambi originariamente cercano di essere inclusi in tale variabile (fChild). Ma la seconda Form esegue l'override di questo, lasciando la prima forma galleggiante in memoria.

- forse ho capito male l'inglese
- oppure si deve cambiare tecnica, pero' per creare un Form a runtime devo avere un'istanza a questo.

suggerimenti ?

[nomorelogic]

non ho scaricato il sorgente ma penso di aver capito a cosa si riferiscono con il 'memory leak'

in pratica se nel codice OnClick del bottone crei una istanza di una form con

fChild := TForm.Create(self);

l'indirizzo della nuova istanza viene memorizzato in fChild, ora: se in fChild c'era già l'indirizzo di un'altra istanza precedentemente creata ti trovi nella condizione di avere 2 istanze in memoria ha mai 1 solo puntatore e quindi puoi gestire (e chiudere) solo una di queste 2 istanze, l'altra rimarrà in memoria.

per ovviare a questo, ci sono 2 modi:

• come ti è già stato suggerico nel forum ufficiale, in FormClose puoi forzarne l'autodistruzione impostando come sotto;
  

  procedure Tfrm_Child.FormClose(Sender: TObject; var CloseAction: TCloseAction);
  begin
    CloseAction := caFree;
  end;
  

  in questo modo quando l'utente cliccherà sul bottone 'X' della form questa si chiuderà e invocherà la Free. Però questo non è sempre sufficiente, magari la form è nascosta e non la si può chiudere...
  
• l'altra possibilità è quella di specificare nell'evento OnCreate quale oggetto dovrà occuparsi della distruzione dell'istanza appena creata; spesso si mette
  fChild := TForm.Create(Application);
  e questo vuol dire che, comunque, quando l'applicazione termina, la form verrà distrutta da Application; la cosa più importante è non mettere mail Create(nil) per ovvi motivi: nessuno si occuperà mai di distruggere l'istanza
  

sicuramente l'utilizzo congiunto di tutti e 2 gli accorgimenti da garanzie migliori, l'importante è capire se bisogna creare una nuova istanza o no.