Discussion :

[dolphins]

ce morceau de code crée et affiche la fiche "ContactFrm" mais moi je ne veux que la créer, comment faire?
*********************

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  comp: TComponent;
begin
  inherited;
  Comp := TComponent(TContactFrm.NewInstance);
  TComponent(ContactFrm) := Comp;
  try
    Comp.Create(nil);
  except
    TComponent(ContactFrm) := nil;
    raise;
  end;
end;

*********************
PS: la procédure Create est déclarée dans l'unité Classes.pas (classe Tcomponent) et NewInstance est une fonction System (TObject)

Reisubar a mis dans son extrème bonté le code en forme, pensez-y la prochaine fois...

[e-ric]

Je ne comprend pas ton problème, tu dis toi-même que tu créés et affiches la fenêtre (en l'occurence il n'y a aucune trace d'affichage dans l'échantillon de code que tu nous soumets). Tu limites ton code à la partie concernant la création et puis c'est tout. Par ailleurs, je trouve ton code un peu compliqué.

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
begin 
  inherited; 
  ContactFrm := TContactFrm.Create(Application); 
  try 
// Ton code utilisant la fiche ici
 
  finally 
    ContactFrm.Release;
    ContactFrm := Nil; // important si ContactFrm est globale
  end; 
end;

Assure-toi que la variable TContactFrm ne référence pas déjà une fiche instanciée (par exemple si elle est une fiche auto-créée)

J'espère que cela répond à ta question.

Reisubar a mis dans son extrème bonté le code en forme, pensez-y la prochaine fois...

[Clorish]

oui c'est comme cela qu'il faut faire.

Eventuelement passe par :

Code :

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

1
2
 
Application.createForm(TForm1, Form1);

et :

[Reisubar]

Le code que celui que tu donnes correspond à celui que la VCL utilise pour la procédure CreateForm. Ce n'est pas nécessaire d'utiliser une telle structure dans ton cas; comme il t'a été donné, un simple :

Code :

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

1
2
3
4
5
6
with TMyForm.Create(Application) do
try
  [...]
finally
  Release;
end;

...suffit amplement.