Discussion :

[chourmo]

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;

[chourmo]

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 :

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);

merci pour tout aide

[qi130]

En fait, le Caption s'applique aux items (TMenuItem)

par suite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TMenuItem(FindComponent('Menu'+level)).Caption:=lignelue;

devrait marcher....

[chourmo]

En fait, le Caption s'applique aux items (TMenuItem)

par suite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TMenuItem(FindComponent('Menu'+level)).Caption:=lignelue;

devrait marcher....

merci