MainMenuRésolu

Question

Bonjour,

en faite j'ai un MainMenu, je veux afficher le caption de Item choisi ! comment je peux faire ??
Merciiii

cs_yanb · Accepted Answer

La réponse est dans ma réponse précédente
ShowMessage(TMenuItem(Sender).Caption);
@+

cs_yanb · Answer

Salut,
Euh c'est un peu confus comme question...
Dans l'événement OnClick tu récupères le caption par exemple
TMenuItem(Sender).Caption
@+

nadiasghaier · Answer

oui mais en faite la création des MenuItem je le fait de façon dynamique ! :/

korgis · Answer

Salut,

oui, là c'est plus clair.

var
  NewMenuItem: TMenuItem;
begin
  NewMenuItem := TMenuItem.Create(MainMenu1);
  NewMenuItem.Name := 'New1';
  NewMenuItem.Caption := 'Nouveau menu';
  MainMenu1.Items[1].Add(NewMenuItem);
end;

nadiasghaier · Answer

oui je vois ,mais en faite la création est c bon de façon dynamique , une fois le MainMenu est déja crée , au moment de l'exécution une fois je Click sur un MainItem je veux savoir son Index comme showMessage ou bien son caption.
Tu m'a compris ?

nadiasghaier · Answer

wiii merci ça marche ;) merci

cs_yanb · Answer

Un truc vite fait pas tester mais tu dois avoir ton bonheur la dedans 
ShowMessage('Numéro TMainMenu : '+IntToStr(TMenuItem(Sender).Parent.MenuIndex));
ShowMessage('Numéro TMenuItem : '+IntToStr(TMenuItem(Sender).MenuIndex));
ShowMessage('Caption du TMenuItem : '+TMenuItem(Sender).Caption);
@+

nadiasghaier · Answer

Thks Boys :D

MainMenu

8 réponses

Votre réponse

Discussions similaires