Ouvrir une fiche de façon dynamique [Résolu]

Signaler
-
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
-
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

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Salut,

Fiche := TForm(Application.FindComponent('Form2'));
{ou bien}
Fiche := Application.FindComponent('Form2') as TForm;
Fiche.Show;

Merciiiii bcp ça marche normalement :))
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Pas de quoi.

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