Discussion :

[stampe]

Bonjour,

Peut-être mon explication sera confuse et je m’en excuse d’avance.

J’ai un projet qui comporte plusieurs forms. Afin d’essayer d’alléger mon application, j’ai constater que le menu « Projet|Option » proposait de créer automatiquement ou pas les fiches du projet à l’exécution de celui-ci. J’aurais voulu savoir la méthode qui permet d’afficher et de fermer ( avec create et free je crois ) les fiches dites « disponibles » ; c'est-à-dire les fiches qui ne sont pas créées automatiquement au lancement de l’appli. Si quelqu’un avait une explication, voir un bout d’exemple……….

Merci.

Stampe

[bNoureddine]

Pour créer les fiches qui ne sont pas créer automatiquement par l'application , il faut le faire de la maniére suivante :

exemple de création d'une fiche.

Code :

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

1
2
3
4
 
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;

[Amenofis]

Salut,

juste un petit "plus"...

si tu regardes le code source de ton application (menu Voir puis Source du projet, tu verras des lignes du style

Code :

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

1
2
3
4
5
6
7
begin
  Application.Initialize;
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TDM, DM);
  Application.CreateForm({TForm},{Form}); 
  Application.Run;
end.

Ce sont ces lignes que tu peux couper pour aller mettre où tu veux, sur un OnClick de MenuItem par exemple... Attention de garder le MainForm en automatique quand même...

ne pas oublier de libérer la form après utilisation...

par un {Form}.Release; plutôt qu'un Free...

Voilà @+

[Pascal]

Salut

Voici un bout de code

Code :

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

1
2
3
If not(Assigned( FrmRecherPerso)) then
         Application.CreateForm(TFrmRecherPerso,FrmRecherPerso);
         FrmRecherPerso.show;

Pascal

[cmen76]

Prendre garde au Assigned(AForm)...
Il ne sera opérationnel que si à la libération de la fiche, AForm est réinitialisé à nil, ce qui n'est jamais fait automatiquement.

[stampe]

Je vous remercie... 8)

Excusez pour le retard............

Stampe