Hint en un TStatusPanel

[Wellnic]

Hola:

A primera vista parece que no es posible poner un hint a cada panel, pero en programación siempre hay una solución , si no es por las buenas puede ser por las malas. A mí se me ocurre algo así:

Código Delphi [-]
// poner un día de la semana en el hint de cada panel:

Const semana: Array[0..6] Of String= ('Lunes', 'Martes', 'Miércoles', 'Jueves',
                                           'Viernes', 'Sábado', 'Domingo');
...

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
StatusBar1.Hint:= semana[x Div 50];
end;

Esto suponiendo que todos los paneles tengan la misma anchura (50 en el ejemplo), sino, la cosa se complicaría mucho. En ese caso como mínimo habría que crear otra matriz (o array) con la anchura de cada panel, por ejemplo...

[[Lepe]]

Para anchos de paneles diferentes, puedes calcular la posición:

Código Delphi [-]
procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

var ancho, panel:integer;
begin
  ancho := 0;
  panel := 0;
  for panel := 0 to statusbar.panels.count -1 do
  if ancho + statusbar.panels[panel].width > X then
     break
  else
    ancho := ancho + statusbar.panels[panel].width;

  StatusBar1.Hint:= semana[panel];    
end;

Saludos