Mostrar Progreso de operaciones

[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