Ouvrir une fiche de façon dynamique

Résolu
nadiasghaier - 9 oct. 2012 à 12:16
korgis Messages postés 420 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 mai 2019 - 9 oct. 2012 à 17:03
Bonjour,

Je veux ouvrir une liste des Fiches, en faite je récupère le nom du fiche à partir du query , mais ça marche pas !
voila mon code :

procedure TFMenu.Button1Click(Sender: TObject);
Var
NomFiche : TComponentName;
begin
NomFiche := Query4.FieldByName('NomFiche').AsString ;
Fiche := Tform(NomFiche);
Fiche := TForm.create(Fiche);
Fiche.Show;
end;

avec Fiche variable de type TForm
Merci de m'aider

3 réponses

korgis Messages postés 420 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 mai 2019 17
9 oct. 2012 à 13:44
Salut,

Fiche := TForm(Application.FindComponent('Form2'));
{ou bien}
Fiche := Application.FindComponent('Form2') as TForm;
Fiche.Show;
3
nadiasghaier
9 oct. 2012 à 15:13
Merciiiii bcp ça marche normalement :))
0
korgis Messages postés 420 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 mai 2019 17
9 oct. 2012 à 17:03
Pas de quoi.

Si ça résoud ton problème, n'oublie pas de valider la réponse !
0
Rejoignez-nous