OnMouseMove bzw. OnMouseDown auf TGroupBox.Caption

[Deep-Sea]

Zitat von TUX_der_Pinguin:

Also mit Canvas.TextWidth() und Font.Height bekomme ich zwar die relativen aussmasse der Caption aber
noch lange nicht die Position oder irre ich mich da ?!

Wie soll ich den eine absolute Position in OnMouseMouve mit der relativen Größe der Caption vergleichen?
Was ich bräuchte wäre sowas wie das TextRect der Caption, jedoch weiß ich noch nicht ob man daran kommt
bzw. wie es gehen würde.

Das ist klar.
Schau dir die Paint-Routine der GroupBox an.
Ausschnitt:

Delphi-Quellcode:

CaptionRect := Rect(0, 0, Size.cx, Size.cy);
if not UseRightToLeftAlignment then
  OffsetRect(CaptionRect, 8, 0)
else
  OffsetRect(CaptionRect, Width - 8 - CaptionRect.Right, 0);

(Sprich: Sofern UseRightToLeftAlignment ist, beginnt die Caption bei Left = 8 und Top = 0 ...)

Darum sagte ich ya auch, eine Komponente ableiten und eben selber zeichnen sei am "schönsten" ...