ProgressBar zur Laufzeit in zur Laufzeit erstellte StatusBar

[Harry M.]

morgen,

im normalfall gehts so:

Delphi-Quellcode:

procedure TStringcode1.FormCreate(Sender: TObject);
begin
  Progressbar1.Parent := StatusBar1;
  Progressbar1.Top := 3;
  Progressbar1.Left := 1; 
  Progressbar1.Height := StatusBar1.Height-4;
  Progressbar1.Width := 400;
end;

bei dir dürfte das dann so ausehen, bin mir aber grad nicht ganz sicher, wegen dem tiefen verständis deines codes:

Delphi-Quellcode:

 //ProgressBar in StatusBar erstellen 
  PROG_BAR[anzSQL].Parent:=STB_Edit[anzSQL]; 
  PROG_BAR[anzSQL].Top := // deine brechnungs var 
  PROG_BAR[anzSQL].Left := // deine brechnungs var  
  PROG_BAR[anzSQL].Height := // deine brechnungs var 
  PROG_BAR[anzSQL].Width := // deine brechnungs var 
  with PROG_BAR[anzSQL] do 
  begin 
    { .... }
  end;