à tous
 
Voilà, j'ouvre chacune de mes form MDIChild avec le code ci- dessous :
 
   if (<Nom_de_la_form> = nil)
   then
      Application.CreateForm(<Type_de_la_form>, <Nom_de_la_form> )
   else
      <Nom_de_la_form>.WindowState:= wsMaximized;
 
 
Je voudrai faire une procédure avec en paramètre le nom de la form

je crois que personne peut t'aider là
cherche un peu, dû côté des FindComponent, etc... (les propriétés de TApplication)
à part ça je vois pas...

Oui, perso j'ai déjà cherché un peu mais je n'ai pas trop le tps  
En fait, pour mon prog c'est pas indispensable mais ce serait "plus propre"  
 
Merci antp, je posterai si j'ai du nouveau

antp a écrit a écrit : je crois que personne peut t'aider là cherche un peu, dû côté des FindComponent, etc... (les propriétés de TApplication) à part ça je vois pas...

 
Benh en fait si, mais y a une partie qui est impossible...
 
Créer une classe avec juste son nom, aucun problème, par contre trouver une variable qui correspond à un string, la c'est moins possible...
 
Alors bon, tu dois faire
 
Dans un create ou un initialization:
RegisterClass(TForm1)
 
Ensuite, tu peux utiliser ma jolie petite fonction:
 function CreateClass(Name: string):Pointer;
 var
  aClass: TPersistentClass;
 begin
   result := nil;
   try
     aClass := FindClass(Name);
     if aClass<>nil then
       result := aClass.Create();
   except
   end;
 end;
 
(Modifiée en live, si ca compile pas ca doit pas être compliqué de corriger).
 
Par contre pour récupérer la variable associée, tu dois soit la foutre dans une liste (TList quoi) soit tu passes la variable à ta fonction, ce qui n'est pas plus mal.
 
Voila, ca devrait suffir, non?  

Zion
Je test ça ce WE