Valeur retournée par un menu
Bonjour
J ai lu la faq et plus particulierement creer une appli type outlook et aussi les articles traitant du tmenu toutefois je n y ai pas trouvé ce que je cherche à savoir dans le tuto 'outlook' il y a
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure TFPrincipal.FormActivate(Sender: TObject);
begin
MenuClick(Button1);
end;
procedure TFPrincipal.MenuClick(Sender: TObject);
begin
FreeAndNil(select_frame);
if Sender = Button1 then select_frame := TFrmEcran1.Create(self)
else if Sender = Button2 then select_frame := TFrmEcran2.Create(self)
else if Sender = Button21 then select_frame := TFrmEcran21.Create(self)
else if Sender = Button3 then select_frame := TFrmEcran3.Create(self)
else Exit;
select_frame.Parent := PanelFrame;
select_frame.Afficher;
end; |
j aimerais pouvoir remplacer Button.. par la valeur retournee par le Tmenu.
Je souhaiterais donc savoir si cela est possible,à savoir faire une procedure identique a MenuClick qui traite chaque click sur un menu parceque je debute et j'en suis a faire une procedure pour chaque click sur chaque menu...cette solution pour le moins contraignante puiqu elle reprend le meme code d'affichage de la frame
je ne sais pas si j ai été tres clair, enfin je l espere.
merci d avance pour votre aide
