Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-08-2012
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Intenta esto:

Código Delphi [-]
const
  CM_AFTERSHOW = WM_USER + 100;

type
  TForm1 = class (TForm)
    ...
    procedure FormCreate(Sender: TObject);
  private
    procedure CMAfterShow(var Message: TMessage); message CM_AFTERSHOW;
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(
    ProgressBar1.Handle, GWL_STYLE,
    GetWindowLong(ProgressBar1.Handle, GWL_STYLE) or PBS_MARQUEE);

  PostMessage(Handle, CM_AFTERSHOW, 0, 0);
end;

procedure TForm1.CMAfterShow(var Message: TMessage);
begin
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 0);

  try
    ZConnection1.Connect;
  finally
    SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 0, 0);
  end;
end;

// Saludos
Responder Con Cita
  #2  
Antiguo 24-08-2012
nickolas nickolas is offline
Miembro
NULL
 
Registrado: may 2011
Posts: 32
Poder: 0
nickolas Va por buen camino
gracias por las respuestas pero todavia no encuentro solucion, si llego a encontrar una forma de hacerlo lo paso o lo escribo.
Responder Con Cita
  #3  
Antiguo 24-08-2012
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Ok. Te esperamos.

// Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿como mostrar ventana de progreso? JXJ Varios 5 17-03-2011 22:01:28
Problemas al mostrar el progreso con TGauge Ledian_Fdez OOP 5 27-10-2006 19:06:22
Mostrar progreso de descarga de IndyFTP con barra de progreso devicer Internet 2 05-12-2005 14:59:32
Como hago para mostrar una barra de Progreso jimmyx017 Varios 7 16-06-2005 16:06:05
Enviar un Stream y mostrar el progreso johncook Internet 0 22-10-2004 17:05:43


La franja horaria es GMT +2. Ahora son las 07:22:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi