j'utilise findcomponent dans une unité et DELPHI m'indique "identificateur non déclaré" à la compilation. dois je rajouter quelque chose dans "uses"?TMenu(FindComponent('Menu'+level)).Caption:=lignelue;
j'utilise findcomponent dans une unité et DELPHI m'indique "identificateur non déclaré" à la compilation. dois je rajouter quelque chose dans "uses"?TMenu(FindComponent('Menu'+level)).Caption:=lignelue;
En fait, mon appli dispose d'un menu dont les items sont nommées menu11, menu12,..,menu23,...
je souhaiterais charger les caption de ces menus depuis un fichier texte.LEs lignes de ce fichier texte sont composées comme suit :
"11FICHIER" ceci afin de faire => menu11.caption:=FICHIER
12QUITTER ceci afin de faire => menu12.caption:=QUITTER
...
je butte sur findcomponent :
merci pour tout aidevar
fichier_menu : TextFile; lignelue : string; i : integer;
begin
...
reset(fichier_menu);
repeat
Readln(fichier_menu, lignelue);
for i:=3 to length(lignelue)
do MainMenu(form_Principale.FindComponent('menu'+lignelue[1]+lignelue[2] ).caption):=lignelue[i];
until EOF( fichier_menu);
Closefile (fichier_menu);
En fait, le Caption s'applique aux items (TMenuItem)
par suite :
devrait marcher....
Code : Sélectionner tout - Visualiser dans une fenêtre à part TMenuItem(FindComponent('Menu'+level)).Caption:=lignelue;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager