Puede que exista un método mas sencillo, pero ahora mismo lo que se me ocurre es lo siguiente. En le evento OnMouseUp colocar esto:
Código Delphi
[-]
uses CommCtrl;
procedure TForm1.StatusBar1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i: Integer;
R: TRect;
begin
with (Sender as TStatusBar) do
for i:= 0 to Panels.Count - 1 do
begin
SendMessage(Handle,SB_GETRECT,i,Integer(@R));
if PtInRect(R,Point(x,y)) then
begin
ShowMessage('Has pulsado el panel: ' + IntToStr(i));
Exit;
end;
end;
end;