OnMouseMove bzw. OnMouseDown auf TGroupBox.Caption

[TUX_der_Pinguin]

Ich habe eine TGroupBox auf einem Formular, jetzt soll diese GroupBox verkleiner bzw. vergrößert werden
können, bisher habe ich dies mit OnClick gemacht, was auch prima Funktioniert.

Ich würde jedoch gerne etwas verdeutlichen das man die GroupBox anklicken kann bzw. auf dessen Titel.
Daher habe ich mir überlegt mit OnMouseMove bzw. OnMouseDown zu arbeiten jedoch weiß ich nicht wie ich
prüfen kann ob die Koordinaten X und Y auf TGroupBox.Caption liegen, so das etwas ausgelöst werden kann,
wenn man nur auf den Titel klickt und bei dem rest soll nichts passieren.

[Deep-Sea]

Mach die Caption der GroupBox leer und verwende statt dessen ein TLabel, was du an die Stelle positionierst an der die Caption war (oder sein soll). Wenn nun das OnMouseEnter bzw. OnMouseLeave des Labels kommt, ist die Maus auf dem Label und auch nur da ...

(Tux? Ab zu Linux :P)

[TUX_der_Pinguin]

Ähm ja das könnte ich natürlich machen, aber das wäre mir dann doch etwas zu viel Fusch am Bau.


P.s. Ja Linux :spin:

[Deep-Sea]

Zitat:

Zitat von TUX_der_Pinguin

Ähm ja das könnte ich natürlich machen, aber das wäre mir dann doch etwas zu viel Fusch am Bau.

Find' ich für das Problem eig. nicht.
Solche Methoden wie mittels Canvas.TextWidth herausfinden wie breit die Caption ist und dann sehen, ob X in dem Bereich liegt und dann auf Font.Height achten etc. finde ich als "Fusch" und zudem als sehr Fehleranfällig ...

Die einzige andere und beste Methode: Leite die ComboBox ab und schreib eine neue Komponente ...

[TUX_der_Pinguin]

Das Problem mit dem Label auf der GroupBox fängt ja schon damit an das die Linie der GroupBox durch das
Label gezeichnet wird, dann weiß man vorher nicht ob XP Design aktiv oder nicht aktiv ist evtl. müßte man
da auch noch die Position auf der GroupBox ändern.

Ich will auch nur mal abklopfen ob es so eine möglichkeit gäbe und wie aufwendig das ganze ist, was es ja
doch irgendwie scheint.

[Deep-Sea]

Wenn es genau die Caption sein muss wird es etwas komplizierter, klar (grob hab ich sowas ya im letzten Post beschrieben).
Wenn es dir reicht das sich die Maus irgendwo im oberen Bereich befindet, dann ist es ya eig. ganz einfach zu lösen.

[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.

[Deep-Sea]

Zitat:

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" ...