1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

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

Réponse 1 / 3
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;
Réponse 2 / 3

Merciiiii bcp ça marche normalement :))
Réponse 3 / 3
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 !
Répondre Posez votre question