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;