Click en statusbar

[[seoane]]

Prueba cambiando SB_GETRECT por WM_USER + 10

Código Delphi [-]
procedure TForm1.StatusBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: Integer;
  R: TRect;
begin
  // Buscamos panel a panel hasta encontrar cual se ha pulsado
  with (Sender as TStatusBar) do
    for i:= 0 to Panels.Count - 1 do
    begin
      // Obtenemos las dimensiones del panel
      SendMessage(Handle,WM_USER + 10,i,Integer(@R));
      // Y comprobamos si se ha hecho click dentro de el
      if PtInRect(R,Point(x,y)) then
      begin
        // El numero del panel esta en i, usalo para lo que quieras
        ShowMessage('Has pulsado el panel: ' + IntToStr(i));
        Exit;
      end;
    end;
end;