ottenuto esso:
nelle profondità nascoste dei pittori protettivi:
tipo
TmagiccxPCStandardPainter = estremità del codice categoria (TcxPCStandardPainter);
procedura TfrmSumGraphs.pcSUMDatabasesMouseDown (mittente: TObject;
Tasto: TMouseButton; Spostamento: TShiftState; X, Y: Numero intero);
varietà
n: Numero intero;
linguetta: tcxTabSheet;
R: TRect;
pinta: TPoint;
cominciare
n: = pcSUMDatabases.IndexOfTabAt (X, Y);
se (n <> -1) allora
cominciare
linguetta: = pcSUMDatabases.Pages [n];
TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
se PtInRect (R, punto (X, Y)) allora ShowMessage (“esso '' s sull'immagine!!!! ");
estremità;
estremità;