Aktives CategoryPanel visuell fokussieren

[torud]

Hallo Wissende,

mit folgendem Code habe ich es schon hinbekommen, dass über AlignWithMargins etwas zu erkennen ist, welches CategoryPanel gerade aktiv ist.

Das Event wird aber nur ausgelöst, wenn ich direkt auf das Panel klicke. Ich würde aber gern haben, dass es auch ausgelöst wird, wenn ich eins der Controls anklicke, die auf ihm liegen. Aktuell sind das nur TButton und ein TStringgrid. Was muss ich tun? Bei OnClick der Controls das OnClick der CategoryPanel aufrufen?

Delphi-Quellcode:

procedure TForm1.CategoryPanel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i : integer;
begin
  for i := 0 to panPages.Panels.Count -1 do
    TCustomCategoryPanel(panPages.Panels[i]).AlignWithMargins := False;

  with (sender as TCategoryPanel) do
    AlignWithMargins := True;
end;

Gibts noch eine bessere optisch ansprechendere Chance das aktive fokkusierte CategoryPanel hervorzuheben?