Ouvrir une fiche de façon dynamiqueRésolu

Question

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

korgis · Accepted Answer

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

nadiasghaier · Answer

Merciiiii bcp ça marche normalement :))

korgis · Answer

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

Ouvrir une fiche de façon dynamique

3 réponses

Votre réponse