obtenu le :
dans les profondeurs cachées des peintres protégés :
type
TmagiccxPCStandardPainter = extrémité de classe (TcxPCStandardPainter) ;
procédé TfrmSumGraphs.pcSUMDatabasesMouseDown (expéditeur : TObject ;
Bouton : TMouseButton ; Décalage : TShiftState ; X, Y : Nombre entier) ;
variété
n : Nombre entier ;
étiquette : tcxTabSheet ;
R : TRect ;
pinte : TPoint ;
commencer
n : = pcSUMDatabases.IndexOfTabAt (X, Y) ;
si (n <> -1) puis
commencer
étiquette : = pcSUMDatabases.Pages [n] ;
TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex) ;
R : = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect ;
si PtInRect (R, point (X, Y)) puis ShowMessage (« il '' s sur l'image ! ! ! ! ") ;
extrémité ;
extrémité ;