Bonjour à tous.
Voila, j'ai un problème (non sans blague), voila mon code :
procedure TFModifUtil.GestAffNiveauUtil(NiveauUtil : integer);
var i : integer;
begin
//----------------------------------------------------------------------------
// Fais appel aux fontions d'affichage de toutes les fiches de l'application
// Pour gérer les accès des utilisateurs (rendre les bp inactif...)
// efface toutes les lignes de la table TblFenetre
QueryListFiches.SQL.Clear;
QueryListFiches.sql.Add('Select * From TblFenetre');
QueryListFiches.open;
for i:=0 to QueryListFiches.RecordCount -1 do
begin
try
//TForm(application.FindComponent(QueryListFiches['NomFenetre'])).OnCreate(application.FindComponent(QueryListFiches['NomFenetre']));
TForm(application.FindComponent(QueryListFiches['NomFenetre'])).GestAffUtil(GroupUtilCourant);
except
end;
QueryListFiches.Next;
end;
end;
Dans ma base de données TblFenetre, sont listées certaine fenêtre de mon appli. Dans ces fenêtres, j'ai implenté une procedure GestAffUtil(int).
Ce que je veux, c'est :
- parcourir ma table : ca v'y arrive
- Acceder à l'objet Form : ca v'y arrive aussi
//TForm(application.FindComponent(QueryListFiches['NomFenetre'])).OnCreate(application.FindComponent fonctionne tres bien
- Faire appel à la procedure GestAffUtil : c'est là que ca coince.
Le compilateur me dit que l'indentificateur n'est pas déclaré.
Je comprend pourquoi, mais je voudrais savoir comment faire pour que ca passe, changer ma ligne de commande ou forcer le compilateur à l'accepter... la je coince.
Je souhaite pouvoir réutiliser ce code pour mes futures appli, donc la solution de lister les fenêtres une par une ne me convient pas... enfin je prefererai trouver une autre solution.
Merci pour vos réponse.