Vraag : de muis klikt op beeld van TcxPageControl (het beeld van het Lusje)

Hallo daar,

i am is (in een onmousedown) een controle eruit zien te vinden om te zien of is de muiswijzer over het beeld van het lusje van een pagecontrol

The TcxPageControl een devexpress component
Component: /> pcSUMDatabases
var cxTabSheet1: TcxTabSheet; /> pcSUMDatabases
);
cxTabSheet1: = TcxTabSheet.Create (Zelf);
met pcSUMDatabasesdo
begin
Naam: = „pcSUMDatabases“; /> Ouder : = 0; /> Bovenkant Breedte Hoogte ActivePage: = cxTabSheet1;
richt zich: = alClient;
ImageBorder: = 2; /> Beelden Opties on, pcoGoDialog, pcoGradientClientArea,]; /> Stijl TabOrder: = 1;
OnMouseDown: = pcSUMDatabasesMouseDown; /> eind met/> begin
Naam cxTabSheet1 do Ouder Titel ImageIndex: = 0; /> eind (dfm deegcode)
object pcSUMDatabases
= 0
Bovenkant =/> Breedte 105
Hoogte 971
ActivePage = cxTabSheet1
richt zich = alClient
ImageBorder = 2
Beelden = ilTabs
LookAndFeel.Kind = lfStandard
Opties = [pcoAlwaysShowGoDialogButton, pcoGoDialog, pcoGradientClientArea,]/> Stijl
TabOrder = 1
TabSlants.Positions = [spLeft, spRight]
OnMouseDown = pcSUMDatabasesMouseDown
ExplicitLeft = 96
ExplicitTop = 224
ExplicitWidth = 289
ExplicitHeight = 193
ClientRectBottom = 431
ClientRectRight = 971
ClientRectTop = 26
voorwerp cxTabSheet1: De Titel van TcxTabSheet
= 'cxTabSheet1'< br/> ImageIndex = 0
end
end


The ilTabs bevat beelden van de gemeenschappelijke dossiers (knopen dir) 16x16

I enkel kan niet schijnen vinden hoe te om de plaats van het beeld op tab.

Anybody te vinden een oplossing van ideeën?

i zal een screenshot toevoegen om te verklaren welk gebied ik precies zoek

Antwoord : de muis klikt op beeld van TcxPageControl (het beeld van het Lusje)

gekregen het:

in de verborgen diepten van de beschermde schilders:

type
  TmagiccxPCStandardPainter = klassen (TcxPCStandardPainter) eind;

procedure TfrmSumGraphs.pcSUMDatabasesMouseDown (Afzender: TObject;
  Knoop: TMouseButton; Verschuiving: TShiftState; X, Y: Geheel);
var
  n: Geheel;
  lusje: tcxTabSheet;
  R: TRect;
  PT: TPoint;
begin
  n: = pcSUMDatabases.IndexOfTabAt (X, Y);
  als (n <> -1) toen
  begin
    lusje: = pcSUMDatabases.Pages [n];
    TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
    R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
    als PtInRect (R, Punt (X, Y)) dan ShowMessage („het '' s op het beeld!!!! “);
  eind;
eind;