Página 1 de 1

Problem with TProgressDlg

Publicado: Dom Jul 02, 2006 11:37 am
por Guest
Hi,
the progress dialog will not be shown immediately after the dialog is
activated with Run().
I modified the dialogs example to show the problem:
METHOD Button15Click( oSender ) CLASS TForm1
WITH OBJECT ::oProgressDlg1
:nValue := 0
:Run()
Sleep( 3000 ) // added
WHILE .T.
:nValue++
Sleep( 30 )
IF :IsCancel()
:Stop()
EXIT
ENDIF
IF :nValue == :nMax
:Stop()
EXIT
ENDIF
END
END
RETURN Nil
I tried to solve it with Reset() but it didn´t work.
Best reagrds, Timm.