sep 302010
 

Buenas,

En los eventos de ratón de un TStatusBar solemos encontrar las coordenadas X, Y en la que se produce la acción, pero no así el panel, el cual puede ser interesante saber si queremos realizar una acción determinada según el panel (mostrar un hint dependiendo del panel, un menú contextual,…). La siguiente función nos devolverá dicho panel del TStatusBar.

function GetStatusBarPanelXY(StatusBar: TStatusBar; X, Y: Integer) : Integer;
var
  i: Integer;
  R: TRect;
begin
  Result := -1;

  // Buscamos panel a panel hasta encontrar en cual está XY
  with StatusBar do
    for i := 0 to Panels.Count - 1 do
    begin
      // Obtenemos las dimensiones del panel
      SendMessage(Handle, WM_USER + 10, i, Integer(@R));
      if PtInRect(R, Point(x,y)) then
      begin
        Result := i;
        Break;
      end;
    end;
end;

Los eventos del ratón que tienen coordenadas y con los que nos servirá la función son los siguientes:

  • OnMouseActivate
  • OnMouseDown
  • OnMouseMove
  • OnMouseUp
  • OnEndDrag
  • OnEndDock
  • OnDragOver
  • OnDragDrop
  • OnContextPopup (no tiene X e Y, pero tiene un TPoint que para el caso es lo mismo)

Espero que os sirva.

Nos leemos