Вопрос : мышь щелкает дальше изображением TcxPageControl (изображение платы)

Hi там,

i am смотря, что нашло (в onmousedown) проверку для того чтобы увидеть если указатель мыши находится над изображением платы pagecontrol

The TcxPageControl, то будет Кодий component
Component devexpress:
var
  pcSUMDatabases: TcxPageControl;
cxTabSheet1: TcxTabSheet;

  pcSUMDatabases := TcxPageControl.Create (Self);
cxTabSheet1: = TcxTabSheet.Create (собственная личность);
с именем begin
do
pcSUMDatabases: = «pcSUMDatabases»; Родитель
: = tsSUM;
вышло: = 0; Верхняя часть
: = 105; Ширина
: = 971; Высота
: = 431;
ActivePage: = cxTabSheet1;
выравнивает: = alClient;
ImageBorder: = 2; Изображения
: = ilTabs; Варианты
: = [pcoAlwaysShowGoDialogButton, pcoGoDialog, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize]; Тип
: = 9;
TabOrder: = 1;
OnMouseDown: = pcSUMDatabasesMouseDown; конец
;
с cxTabSheet1 именем begin
do
: = «cxTabSheet1»; Родитель
: = pcSUMDatabases; Титр
: = «cxTabSheet1»;
ImageIndex: = 0; конец
; pcSUMDatabases
object

(Кодего затира dfm): Ое TcxPageControl
= верхняя часть 0
= ширина 105
= высота 971
= 431
ActivePage = cxTabSheet1
выравнивает = alClient
ImageBorder = изображения 2
= ilTabs
LookAndFeel.Kind = варианты lfStandard
= [pcoAlwaysShowGoDialogButton, pcoGoDialog, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize] тип
= 9
TabOrder = 1
TabSlants.Positions = [spLeft, spRight]
OnMouseDown = pcSUMDatabasesMouseDown
ExplicitLeft = предмет cxTabSheet1 96
ExplicitTop = 224
ExplicitWidth = 289
ExplicitHeight = 193
ClientRectBottom = 431
ClientRectRight = 971
ClientRectTop = 26
: Титр TcxTabSheet
= 'br/> ImageIndex cxTabSheet1'< = ilTabs end
end


The 0
содержит изображения от обычный архивов (dir кнопок), котор 16x16

I как раз не может показаться, что нашло как найти положение изображения на tab.

Anybody разрешение идей?

i добавит screenshot для того чтобы объяснить что области я точно ищу class=

Ответ : мышь щелкает дальше изображением TcxPageControl (изображение платы)

получено его:

в спрятанных глубинах защищенных колеривщиков:

тип
  TmagiccxPCStandardPainter = конец типа (TcxPCStandardPainter);

процедура TfrmSumGraphs.pcSUMDatabasesMouseDown (прислужник: TObject;
  Кнопка: TMouseButton; Перенос: TShiftState; X, Y: Интежер);
var
  n: Интежер;
  плата: tcxTabSheet;
  R: TRect;
  pt: TPoint;
начните
  n: = pcSUMDatabases.IndexOfTabAt (x, y);
  если (n <> -1) после этого
  начните
    плата: = pcSUMDatabases.Pages [n];
    TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
    R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
    если PtInRect, то (r, пункт (x, y)) после этого ShowMessage («оно '' s на изображении!!!! ");
  конец;
конец;