TProgressBar does not come up
lazarus / 11-Options

----------------------------------------------------------------------
endik · 2007-05-21 16:58

some can help how to create ProgresBar dynamically?

this does not work:

Code: [Select] progres:=TProgressBar.Create(nil);
 progres.Orientation:=pbHorizontal;
 progres.Left:=570;
 progres.Top:=40;
 progres.Height:=30;
 progres.Width:=450;
 progres.Position:=0;
 progres.Max:=imax;
 progres.BarShowText:=True;
 progres.Smooth:=True;
 progres.Step:=1;
 progres.Visible:=True;

...

 progres.Free;

----------------------------------------------------------------------
antonio · 2007-05-21 17:04

When you set Parent (progress.Parent) this will work.

----------------------------------------------------------------------
endik · 2007-05-21 17:16

thanks Antonio for so quick answer, unfortunately I could not find
anything about this option so I was not able to fix it. Could you be
more detailed by adding a correct value for .Parent?

----------------------------------------------------------------------
endik · 2007-05-21 17:24

ok, I have found it, it should be address to component which progres
is expected to be created on

thanks anyway

----------------------------------------------------------------------
antonio · 2007-05-21 17:34

The parent can be a control or a form. Normally, it's the control
where you put your control (progressbar) at design time.