Mega Code Archive

 

Categories / Delphi / VCL

 

Calışma zamanı progressbar oluşturmak

procedure TForm1.Button1Click(Sender: TObject); var ProgressBar: TProgressBar; begin ProgressBar := TProgressBar.Create(Self); with ProgressBar do begin Parent := Self; Align := alBottom; end; end;