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
[-]
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...