Ver Mensaje Individual
  #9  
Antiguo 09-12-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Buscando en foro he encontrado un ProgressBar Ciclico en el truco nro 471.
Ahora otra solucion a tu problema es poner otro cursor al puntero del Raton al momento de cargar tu formulario,para que el usario sepa que se esta cargando, y al terminar volver a poner el cursor que se tenia antes;
Mas o menos asi siguiendo tu ejemplo:

Código Delphi [-]
procedure TSUPERMERCADO.Modificaciones2Click(Sender: TObject);
var aux:TCursor; 
begin
  aux:=Screen.Cursor;
   try
    Screen.Cursor:=crHourGlass;//cambio de cursor
    modificacion_proveedor.Show;
    supermercado.Enabled:=false;
  finally
   Screen.Cursor:=aux;//recupero el anterior cursor
  end;
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita