j'utilise findcomponent dans une unité et DELPHI m'indique "identificateur non déclaré" à la compilation. dois je rajouter quelque chose dans "uses"?Citation:
TMenu(FindComponent('Menu'+level)).Caption:=lignelue;
Version imprimable
j'utilise findcomponent dans une unité et DELPHI m'indique "identificateur non déclaré" à la compilation. dois je rajouter quelque chose dans "uses"?Citation:
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 aideCitation:
var
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:TMenuItem(FindComponent('Menu'+level)).Caption:=lignelue;
merciCitation:
Envoyé par qi130