Arsip: Progres Bar

 
user image
more 11 years ago

johnizzy

bagaimana cara menggunakan komponent progres bar?
user image
more 11 years ago

alvonz

nih saya ada contoh progrssbar dengan membaca rcord dari database
procedure TFProses.Button1Click(Sender: TObject);
var
x,y: Integer;
begin
  x:=0;
  y:=0;
  x:=TABLE1.RecordCount;
  progressbar1.Max:=x;
  table1.first;
  while not table1.eof do
  begin
  //proses untuk table1.
  end;
  y:=y+1;
  progressbar1.Position:=y;
  table1.Next;
end;
user image
more 11 years ago

reev

@alvonz: nih saya ada contoh progrssbar dengan membaca rcord dari database
procedure TFProses.Button1Click(Sender: TObject);
var
x,y: Integer;
begin
  x:=0;
  y:=0;
  x:=TABLE1.RecordCount;
  progressbar1.Max:=x;
  table1.first;
  while not table1.eof do
  begin
  //proses untuk table1.
  end;
  y:=y+1;
  progressbar1.Position:=y;
  table1.Next;
end;
Table1.Next(); harusnya di dalam blok loop While...End;. Atau bagaimana? :roll:
user image
more 11 years ago

DelphiExpert

@reev: Table1.Next(); harusnya di dalam blok loop While...End;. Atau bagaimana? :roll:
hihi... alvonz koding sambil tiduran ya :mrgreen:
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com