erreur transtypage incorrect

**OutOfRange** · 05/10/2006, 12h58

Bonjour

Sur ma form, j'ai 2 tpagecontrol auxquels j'associe un seul et même popupmenu
Dans l'événement onpopup de ce menu, je code

Code :

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

1
2
case (sender as tpagecontrol).tag of
bla bla bla...

J'ai une erreur de transtypage incorrect sur cette ligne à la compilation
sur la 1ère ligne ci-dessus, pas la 2ème

Que renvoie le paramètre sender: le TItemMenu ou le compo sur lequel j'ai cliqué droit, c'est à dire mon tpagecontrol
Quelle est la bonne manière de procéder ?

Merci

**QAYS** · 05/10/2006, 13h04

essaye

with sender as tpagecontrol do
begin

case tag of

bla bla bla...

end case

end,

**eponette** · 05/10/2006, 13h30

Le sender n'est-il pas le popup? Si tu es dans le OnPopup du Popup, le sender est le popup, pas le tab.

Perso, je ferais simple. Un popup pour chaque Tab....

**Cl@udius** · 05/10/2006, 13h33

Salut OutOfRange,

Le Sender du OnPopup renvoie le PopupMenu. Pour savoir quel composant utilise le Popup fait appel à la propriété PopupComponent du TPopupMenu.

Ton code devient ceci:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  case TPageControl(TPopupMenu(Sender).PopupComponent).Tag of
    0: Blabla...
    1: Blibli...
  end;
end;

@+ Claudius