Discussion :

[sniperpro]

Bonjour,

J'essaye d'ouvrir une fiche delphi en repérant sa classe :

Code :

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

1
2
3
4
5
6
7
8
try
    ClassName:= Query.FieldByName('Class').AsString;
    Class2 := TFormClass(FindClass(ClassName));
      with Class2.create(self) do
      showModal;
  except
raise;
end;

Le compilateur affiche le message d'erreur suivant au niveau de la ligne rouge:
"Valeur de propriété incorrecte"

[franckcl]

Bonjour

Essaie ce code, il fonctionne chez moi !
Tu dois enregistrer les classes que tu utilises sinon tu auras une erreur lors de l'exécution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TFormApp.Button1Click(Sender: TObject);
Var
 Class2 : TForm;
 fc : tformclass;
begin
 try
   registerClass(TAboutForm);
   fc := Tformclass(FindClass('TAboutform'));
   Class2 := fc.Create(Self);
   Class2.showModal;
 except
   raise; 
  end;
end;

[ShaiLeTroll]

except raise est un code totalement inutile !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TFormApp.Button1Click(Sender: TObject);
Var
  lFormClassName: String; // ClassName étant une propriété de Self, c'est maladroit comme nom de variable locale !
  lFormClass: TFormClass;
begin
  lFormClassName := Query.FieldByName('Class').AsString;
  lFormClass := GetClass(lFormClassName); // renvoie nil au lieu d'un EClassNotFound !
  if Assigned(lFormClass) then
  begin
    with lFormClass.Create(nil) do
    try
      ShowModal();
    finally
      Free(); 
    end;
  end;
end;

Pour le RegisterClass, je suppose qu'il a déjà été fait sinon tu aurais évoqué une EClassNotFound et non EReadError\SInvalidPropertyValue "Valeur de propriété incorrecte"

Donc cela semble être une erreur de DFM qui contient une valeur que ne gère pas l'un des composants contenus dans le TForm !

Si tu n'a pas de DFM, utilise CreateNew comme constructeur

[franckcl]

Oui bien sur, j'ai repris son code sans voir ce "pléonasme'"

[ShaiLeTroll]

Oui bien sur, j'ai repris son code sans voir ce "pléonasme'"

T'inquiète pas, ma remarque était adressé à sniperpro, j'avais bien noté que l'élément important de ta réponse était RegisterClass !

De toute façon, c'est un problème de DFM incompatible, pas évident à trouver !
Faudrait faire à la main un CreateNew + TResourceStream.ReadComponent, il est peut-être plus précis

[sniperpro]

Vous avez raison ça marche avec des nouvelles fiches, mais pas avec les fiches existantes. Pouvez-vous m'expliquer d'avantage ce que je pourrais faire

[franckcl]

Il faudrait que tu t'expliques un peu plus sur ce que tu veux faire exactement.

Quand tu dis "fiche existante", oui bien sur il faut que la fiche existe.
D'ailleurs dans l'exemple que je t'ai donné avec TAboutform, pour que ça fonctionne, il faut créer d'abord une fiche du type TAboutForm que tu peux ensuite supprimer ou non de le liste des fiches qui sont créées automatiquement (Menu projet/options/fiches ou alors dans le source du projet).

[ShaiLeTroll]

Vous avez raison ça marche avec des nouvelles fiches, mais pas avec les fiches existantes. Pouvez-vous m'expliquer d'avantage ce que je pourrais faire

Tes DFM ont changés par rapport à tes objets, peut-être une version de package différent ...

Vérifie si l'IDE charge correctement tes fenêtres (ouvre-les TOUTES) puis reconstruit ton projet

Il faut savoir que Delphi ne vérifie pas à la compilation la cohérence des DFM mais seulement à l'ouverture !
Ainsi si l'on change des objets, je pense à Indy 9 vers Indy 10, les propriétés changent de valeur possible d'où cette erreur