Cambiar color de panel al seleccionarlo

[ecfisa]

Hola de nuevo.

Se me ocurrió otra forma de realizar lo mismo y que evita las múltiples asignaciones al evento OnClick de los TPanel:

Código Delphi [-]
...
implementation

var
  PrevWinCtrl: TWinControl;

procedure TForm1.MouseEvent(var Msg: TMsg; var Handled: Boolean);
var
  Ctrl : TWinControl;
begin
  if Msg.message =  WM_LBUTTONDOWN then
  begin
    Ctrl := FindVCLWindow(Mouse.CursorPos);
    if Assigned(Ctrl) and (Ctrl is TPanel) then
    begin
      if Assigned(PrevWinCtrl) then
        TPanel(PrevWinCtrl).Color := clBtnFace; 
      TPanel(Ctrl).Color := clRed;
      PrevWinCtrl := TWinControl(Ctrl);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := MouseEvent;
end;
...

Saludos.