Mostrar Progreso de operaciones

[nickolas]

listo gracias cuando lo pruebe les comento.

[nickolas]

probe lo que me dijiste de poner que se active en el BeforeConnect y el afterconnect del zconection el problema con eso es que no muestra nada de lo que este en el formulario principal hasta que este conectado o me tire error que no se pudo conectar, tambien probe que muestre un mensaje mientras esta conectando el problema que si da un error la conexion no me muestra el error hasta que cierro el formulario que habia abierto antes, alguien sabe si el zconection tiene algun evento que detecte si la conexion se hiso corecctamente asi como tiene los otros (afterconect beforeconnect

[roman]

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

[nickolas]

gracias por las respuestas pero todavia no encuentro solucion, si llego a encontrar una forma de hacerlo lo paso o lo escribo.

[roman]

Ok. Te esperamos.

// Saludos