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;