Ver Mensaje Individual
  #2  
Antiguo 26-04-2007
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Reputación: 18
Wellnic Va por buen camino
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...
Responder Con Cita