Question : la souris cliquent dessus l'image de TcxPageControl (l'image d'étiquette)

Salut là, le

i AM regardant pour trouver (dans un onmousedown) un contrôle pour voir si l'indicateur de souris est au-dessus de l'image de l'étiquette d'un pagecontrol

The TcxPageControl est un code du component
Component de devexpress :
var
  pcSUMDatabases: TcxPageControl ;
cxTabSheet1 : TcxTabSheet ;

  pcSUMDatabases := TcxPageControl.Create (Self) ;
cxTabSheet1 : = TcxTabSheet.Create (individu) ;
avec le nom du begin
du do
de pcSUMDatabases : = « pcSUMDatabases » ; Parent du
: = tsSUM ; Le
est parti : = 0 ; Dessus du
: = 105 ; Largeur du
: = 971 ; Taille du
: = 431 ;
ActivePage : = cxTabSheet1 ; Le
alignent : = alClient ;
ImageBorder : = 2 ; Images du
: = ilTabs ; Options du
: = [le pcoAlwaysShowGoDialogButton, pcoGoDialog, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize] ; Modèle du
: = 9 ;
TabOrder : = 1 ;
OnMouseDown : = pcSUMDatabasesMouseDown ; extrémité du
;
avec cxTabSheet1 le nom du begin
du do
: = « cxTabSheet1 » ; Parent du
: = pcSUMDatabases ; Légende du
: = « cxTabSheet1 » ;
ImageIndex : = 0 ; extrémité du
; pcSUMDatabases du
object du

(code de pâte de dfm) : TcxPageControl
laissé = dessus de 0
= largeur de 105
= taille de 971
= 431
ActivePage = cxTabSheet1
alignent = l'alClient
ImageBorder = les images de 2
= l'ilTabs
LookAndFeel.Kind = options du lfStandard
= [le pcoAlwaysShowGoDialogButton, pcoGoDialog, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize] modèle du
= 9
TabOrder = 1
TabSlants.Positions = [spLeft, spRight] le
OnMouseDown = pcSUMDatabasesMouseDown
ExplicitLeft = objet cxTabSheet1 de 96
ExplicitTop = de 224
ExplicitWidth = de 289
ExplicitHeight = de 193
ClientRectBottom = de 431
ClientRectRight = de 971
ClientRectTop = de 26
: La légende de TcxTabSheet
= le 'Br/> ImageIndex de cxTabSheet1'< = les ilTabs de l'end
end


The de 0
contient des images à partir des dossiers communs (dir de boutons) que 16x16

I juste ne peut pas sembler trouver comment trouver l'endroit de l'image sur le tab.

Anybody une solution des idées ? le

i ajoutera un screenshot pour expliquer quel secteur je recherche exactement class= de

Réponse : la souris cliquent dessus l'image de TcxPageControl (l'image d'étiquette)

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é ;