Fråga : musen klickar avbildar på av TcxPageControl (fliken avbildar),

Hi där, förmiddagen för

i ser för att finna (i en onmousedown) en kontroll för att se, om muspekaren är över avbilda av fliken av en pagecontrol

The TcxPageControl, är devexpress som component
Component kodifierar:
var
  pcSUMDatabases: TcxPageControl;
cxTabSheet1: TcxTabSheet;

  pcSUMDatabases := TcxPageControl.Create (Self);
cxTabSheet1: = TcxTabSheet.Create (själv);
med begin
för pcSUMDatabasesdo
namnger: = ”pcSUMDatabases”; Förälder för
: = tsSUM;
lämnade: = 0;
överträffar: = 105; Bredd för
: = 971; Höjd för
: = 431;
ActivePage: = cxTabSheet1;
arrangera i rak linje: = alClient;
ImageBorder: = 2;
avbildar: = ilTabs; Alternativ för
: = [pcoAlwaysShowGoDialogButton, pcoGoDialog som är pcoGradient, pcoGradientClientArea, pcoRedrawOnResize];
utformar: = 9;
TabOrder: = 1;
OnMouseDown: = pcSUMDatabasesMouseDown;
avslutar;
med cxTabSheet1 begin
för do
namnger: = ”cxTabSheet1”; Förälder för
: = pcSUMDatabases;
förser med text: = ”cxTabSheet1”;
ImageIndex: = 0;
avslutar; pcSUMDatabases för
object för

(dfmdeg kodifierar): TcxPageControl
lämnade = bästa 0
= bredden för 105
= höjd för 971
= 431
ActivePage = cxTabSheet1
att arrangera i rak linje = alClient
ImageBorder = 2
avbildar = ilTabs
LookAndFeel.Kind = alternativ för lfStandard
= [pcoAlwaysShowGoDialogButton, pcoGoDialog som är pcoGradient, pcoGradientClientArea, pcoRedrawOnResize],
utformar = 9
TabOrder = 1
TabSlants.Positions = [spLeft, spRight]
OnMouseDown = pcSUMDatabasesMouseDown
ExplicitLeft = 96
ExplicitTop = 224
ExplicitWidth = 289
ExplicitHeight = 193
ClientRectBottom = 431
ClientRectRight = 971
ClientRectTop = 26
anmärker cxTabSheet1: TcxTabSheet
förser med text = 'cxTabSheet1'<-br/> ImageIndex = ilTabs för end
end


The för 0
innehåller avbildar från allmänningen sparar (knäppas dir), 16x16

I precis kan inte verka för att finna hur man finner läget av avbilda på tab.
Anybody en lösning av idéer? ska

i tillfogar en screenshot för att förklara vilken förmiddag för område som i söker efter exakt " klar "

Svar : musen klickar avbildar på av TcxPageControl (fliken avbildar),

fånget det:

i de gömda djupen av de skyddade målarna:

typ
  TmagiccxPCStandardPainter = klassificerar (TcxPCStandardPainter) avslutar;

tillvägagångssätt TfrmSumGraphs.pcSUMDatabasesMouseDown (avsändare: TObject;
  Knäppas: TMouseButton; Förskjutning: TShiftState; X Y: Heltal);
var
  n: Heltal;
  flik: tcxTabSheet;
  R: TRect;
  liter: TPoint;
börja
  n: = pcSUMDatabases.IndexOfTabAt (X, Y);
  om (n <> -1) därefter
  börja
    flik: = pcSUMDatabases.Pages [n];
    TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
    R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
    om PtInRect (R, pekar (X, Y)) därefter ShowMessage (”det '' s på avbilda!!!! ”);
  avsluta;
avsluta;