Eigene Komponente von TGroupBox ableiten

[TUX_der_Pinguin]

Ich versuche grade ein altes Problem in den griff zu bekommen, und zwar benötige ich eine normal GroupBox mit
2 weiteren möglichkeiten, die erste wäre ein OnClick Ereignis auf der Beschriftung der GroupBox "TGroupBox.Caption"
sowie die möglichkeit den Cursor nicht für das gesamte Steuerelement zu ändern sondern ebenfalls nur für die
Beschriftung.

Was ich bisher gemacht habe ist eine eigene Komponente erzeugt bzw. eine von TGroupBox abgeleitet, ich habe auch
die neue Eigenschaft "CaptionCursor" und das Ereignis "OnCaptionClick" hinzugefügt, jedoch fehlt der "Inhalt" für beides,
da steh ich irgendwie auf dem Schlauch und weiß nicht so recht wie und wo ich Anfangen soll.

Delphi-Quellcode:

unit uLabeledGroupBox;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TLabeledGroupBox = class(TGroupBox)
  private
    { Private-Deklarationen }
    FCursor : TCursor;
    FOnCaptionClick : TNotifyEvent;
    procedure SetCursor(const Value: TCursor);
  protected
    { Protected-Deklarationen }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
    property CaptionCursor: TCursor read FCursor write SetCursor default crDefault;
    property OnCaptionClick: TNotifyEvent read FOnCaptionClick write FOnCaptionClick;
  end;

procedure Register;

implementation


procedure Register;
begin
  RegisterComponents('Standard', [TLabeledGroupBox]);
end;


{ TLabeledGroupBox }

constructor TLabeledGroupBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCursor := crDefault;
end;


procedure TLabeledGroupBox.CreateParams(var Params: TCreateParams);
begin
  inherited;

end;



procedure TLabeledGroupBox.SetCursor(const Value: TCursor);
begin
  if FCursor <> Value then begin
    FCursor := Value;
    Perform(CM_CURSORCHANGED, 0, 0);
  end;
end;


end.

Als Grundlage habe ich mir die Abgeleitete Komponente TAlignLabeledEdit angesehen, die ich hier aus dem Forum habe.
Dort wird in der Prozedur "CreateParams" das gemacht was die Komponente im gegensatz zum ursprung mehr kann.

Delphi-Quellcode:

procedure TAlignLabeledEdit.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  case FAlign of 
    eaLeft: Params.Style   := Params.Style or ES_LEFT; 
    eaCenter: Params.Style := Params.Style or ES_CENTER; 
    eaRight: Params.Style  := Params.Style or ES_RIGHT; 
  end; 
end;

Mein Problem ist aber nachwievor ich habe keinen Schimmer wo ich meiner Komponente sagen muß, änder den Cursor (Weil die Maus
über der Beschriftung steht). Genauso wie implementiere ich das beim Klick auf die Beschriftung nicht das OnClick des
gesamten Steuerelements greift sondern mein Ereignis OnCaptionClick.


Das Ziel sollte sein ich fahre mit der Maus über die Beschriftung und der Mauszeiger ändert sich in ein Hand-Symbol
und das zeigt dem Anwender das er hier etwas machen kann und zwar auf die Beschriftung klicken. Tut der Anwender dies
wird in dem Ereignis OnCaptionClick die ganze GroupBox verkleinert bzw. vergrößert. Es soll eine art ein- und ausblend
Funktion erstellt werden.