Discussion :

[Droïde Système7]

Title : Possible de relancer une fiche toujours en "maximize" ?


Bonjour et Bonne Année,

Pour simplifier : dans une Form j'ai un bouton qui lance une fiche, cette fiche est paramétrée pour la possiblité "Minimize".

Jusque là rien d'extraordinaire, mais si cette fiche est fermée en position "Minimize", si jamais elle est relancée, elle se replace en "Minimize".. une sorte de mémoire Windows grrreeuuuu :o(

Voici ma question précise : est-il possible de relancer cette fiche toujours en "Maximize" (enfin normal quoi ;o) ?

J'ai tenté bien des choses pour éviter cette relance en "Minimize", exemple de redonner les dimensions de cette fiche dans le OnCreate ; de tenter les "WindowsState" ; même un "Free" à la fermeture de cette fiche, mais là... ;o)

Dernière minute : j'ai enfin réussi (???) avec dans le OnClose un (FreeAndNil(MaForm)), cette solution vous paraît-elle convenable et fiable ?

Heuuuuu en passant encore un peu de temps aux essais = non, car si je ferme cette fiche en "Minimize" et ensuite la relance, j'ai droit au bout d'un moment d'essais à un beau message d'erreur !

Bref je pensais que cette étape était plus simple à réaliser.

Merci de me donner vos avis de pros.

PS : Je suis débutant

[sjrd]

Crée ta fiche au moment de la lancer (et désactive sa création automatique dans le menu Projet|Options) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
with TFicheQueTuVeuxOuvrir.Create(Application) do
try
  ShowModal;
finally
  Release;
end;

Maintenant si tu veux l'ouvrir avec Show et non avec ShowModal alors fais ceci (mais je suis vraiment pas certain que ça va marcher ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TFicheQueTuVeuxOuvrir.Create(Application).Show;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFicheQueTuVeuxOuvrir.FormClose(...);
begin
  Release; // j'ai très peur de ça en fait
end;

[Bestiol]

J'ai pris le "risque" de tester pour toi !

Ca fonctionne bien... Enfin en tout cas, ça ne plante pas !
De là à dire que ça pose pas de problème en mémoire...

[Tardiff Jean-François]

Bonjour,

Juste pour un détaille.
Si vous avez peur de mette realease dans le forme close (mois aussi j'aurais peure), pourquois ne pas mettre CaFree dans la propriété action du form close.

Nota:
Formclose est un TCloseEvent, il posséde don une propriété action. voir ci dessous.

TCloseEvent = procedure(Sender:TObject;var Action:TCloseAction)of object;
TCloseAction comprend les valeurs suivantes :
caNone La fiche n'est pas autorisée àse fermer et rien ne se passe.
caHide La fiche n'est pas fermée,juste cachée.L'application peut toujours accéder àla fiche.
caFree La fiche est fermée et toute la mémoire allouée àla fiche est libérée.
caMinimize La fiche est réduite,pas fermée.

[sjrd]

En effet j'ai vérifié ta solution est bien meilleure. Mais comme j'étais sceptique (je pensais que par défaut c'était déjà caFree), j'ai vérifié :

Si une fiche est une fiche enfant SDI, l'action par défaut est caHide.

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFormQueTuVeuxAfficher.FormClose(...);
begin
  Action := caFree;
end;

Bien joué Jean-François

[Tardiff Jean-François]

Re bonjour,

j'ai essayer d'ajouter un ShowWindow dans le on show d'une forme.
Cela semble régler le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShowWindow(Handle, SW_NORMAL) ;

En l'ocurence vous devriez utilise SW_MAXIMIZE pour "maximizer" la forme.

[Droïde Système7]

Bonjour à Tous,

En fait par souci de clarté pour exposer mon blème, j'avais omis de vous indiquer que je créais ma Form secondaire via un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if MaForm=nil then Application.CreateForm(TMaForm,MaForm);
    MaForm.Show;

Bestiol écrivait :

J'ai pris le "risque" de tester pour toi !

Ca fonctionne bien... Enfin en tout cas, ça ne plante pas !
De là à dire que ça pose pas de problème en mémoire...

Merci pour ton acte de bravoure au combat

Mais il ne me fallait absolument pas une ouverture en Modal, c'est pour cette raison que je l'ouvrais comme indiqué ci-dessus ===> if MaForm=nil then...

Or la seule chose pas trop mauvaise pour la fermer était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FreeAndNil(MaForm);

sjrd écrivait :

Maintenant si tu veux l'ouvrir avec Show et non avec ShowModal alors fais ceci (mais je suis vraiment pas certain que ça va marcher :

J'ai bien testé sous toutes les coutures au moins une cinquantaine de fois ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TFicheQueTuVeuxOuvrir.Create(Application).Show;

Avec le couple de fermeture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Action:=caFree;

Et c'est

Je pensais à tout mais pas à regarder du côté de cette procédure d'ouverture autre que if MaForm=nil then...

Autrement dit, je pense que mon blème venait du point de vue que :
- Lorsque je fermais la fiche secondaire en état de Minimize via le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FreeAndNil(MaForm);

ce code ne libérait pas les ressources, alors ressources non libérées et si ensuite un clic sur la procédure de CreateForm... ;o(

Je précise qu'avec tout ceci j'ai enfin la libération de ressources, dans tous les cas de fermeture de cette fiche secondaire : Maximize ou Minimize.

Merci à tous et particulièrement à sjrd et Jean-François et surtout bravo !

PS : Oupssss je viens de voir le complément de réponses et je regarde...

[Droïde Système7]

Re bonjour,

Re bonjour,

j'ai essayer d'ajouter un ShowWindow dans le on show d'une forme.
Cela semble régler le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShowWindow(Handle, SW_NORMAL) ;

En l'ocurence vous devriez utilise SW_MAXIMIZE pour "maximizer" la forme.

Là Jean-François, tu me donnes une autre cartouche.
Oui je viens de tester et c'est également impec !

Enfin je vais aussi savoir comme directement relancer ou lancer la Form toujours en Maximize.

Mais je suis super content pour tout ça (plus haut), car il me fallait aussi une libération fiable des ressources de cette fiche secondaire, ce qui me permet désormais de renvoyer une routine via le OnClose enfin detected.

Merci encore !