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 : Sélectionner tout - Visualiser dans une fenêtre à part
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