Discussion :

[Invité]

Bonjour.
Il est impossible de fermer un programme (comprenant une seule fiche) dans la routine "OnCreate" par "[NomDeLaFiche].Close;", ni sous W2000, ni sous XP. L'instruction "[NomDeLaFiche].Release;" fonctionne de manière "sale", c'est-à-dire qu'après exécution il est impossible de recompiler l'application : l'exécutable reste "ouvert". Enfin l'instruction "[NomDeLaFiche].Free;" plante méchamment ...
La seule méthode qui SEMBLE fonctionner proprement est "Application.Terminate ;" !
Je m'explique : je dois initialiser un périphérique USB et en cas d'absence de celui-ci quitter le programme sans autre forme de procès.
Avez-vous aussi déjà remarqué ce problème ?

[SergioMaster]

Bonjour,

je n'appellerai pas ça un bug de Delphi (AMHA ce comportement est "valable" avec toutes les versions), il s'agit plutôt une mauvaise utilisation du OnCreate.
Si le code se trouvait dans le OnShow ou le OnActivate de la fiche le problème ne se poserait pas (du moins pas de la même façon)

Schéma :
dans le OnCreate initialiser le périphérique
dans le OnActivate si périphérique non initialisé Close;

[Invité]

pour la réponse rapide. Mais on peut voir cela comme on veut : il y a 30 ans, chez un grand fabricant de matériel et logiciels, il n'y avait pas de bugs, seulement des "features" ...

[foetus]

Fais gaffe à OnActivate: cette méthode est appelée lorsqu'on l'application récupère le focus (appeler ou pas )

Colle un Application.Terminate dans le OnShow et assure toi que dans le OnClose l'action est caFree c'est plus sûr

[Invité]

Voilà, j'ouvre mon périphérique USB dans ma routine en mode "OnCreate", en cas d'échec je termine par "ApplicationTerminate" ; cela fonctionne sauf ... que mon programme est passé dans le second onglet, celui des processus, dans le gestionnaire des tâches. Et donc impossible de recompiler pour modifications avant d'avoir arrêté ce processus, qui au passage doit "bouffer" des ressources pour rien ! Comment faire pour terminer "proprement" ? PostMessage(Self.Handle, 16, 0, 0) ne marche pas non plus. A moins que tout ceci ne soit lié à la dll de contrôle de l'interface USB qui aurait "des problèmes" ?
Une autre curiosité est que des "OnActivate" et "OnDeactivate" définis via les événements de la fiche principale ... sont ignorés, maintenant que ma routine d'initialisation est en mode "onCreate" : il faut que je mette "Application.On(de)activate:= ..." dans ladite routine d'initialisation. Bizarre ... Auparavant, quand ma routine d'initialisation était définie dans l'événement "OnActivate", cela marchait et je redéfinissais l'événement OnActivate dans la routine. OnDeactivate n'a jamais marché via la gestion d'événements de la fiche principale !
J'attends vos suggestions !

[exoseven]

au pire utilise un timer que tu actives dans onCreate, ou tu cré un message personnalisé et tu l'envoie avec PostMessage (pas SendMessage qui est bloquant) depuis ton create cela devrais suffire je pense