SonicM3
asked on
delphi progress bar
i have a blank splash screen. it takes 8 seconds to load. how would i simulate a progress bar so the bar goes up and down the frames. ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
ps: im using delphi 6 :(
ASKER
this is supposed to work when button is pressed but its got no event foe a timer and it gives an error on the last bit of code,
procedure TForm1.Button1Click(Sender : TObject);
begin
Timer1.Enabled := True;end;
procedure TForm1.Timer1Timer(Sender: TObject);
const cnt: integer = 1;
begin
ProgressBar1.Position := cnt;
if cnt = 1 then Label1.Caption := 'Waiting...'
else
if cnt = 100 then begin Label1.Caption := 'Done!';
Timer1.Enabled := False;
end
else
Label1.Caption := 'Working...';
Inc(cnt);
end;
end.
error is on inc(cnt);
any ideas how to fix it ?
procedure TForm1.Button1Click(Sender
begin
Timer1.Enabled := True;end;
procedure TForm1.Timer1Timer(Sender:
const cnt: integer = 1;
begin
ProgressBar1.Position := cnt;
if cnt = 1 then Label1.Caption := 'Waiting...'
else
if cnt = 100 then begin Label1.Caption := 'Done!';
Timer1.Enabled := False;
end
else
Label1.Caption := 'Working...';
Inc(cnt);
end;
end.
error is on inc(cnt);
any ideas how to fix it ?
You can use this component
MarqueeProgressBar v.1.0
http://www.torry.net/vcl/indicat/meters/sgmarqueeprogressbar.zip
This component encapsulates the marquee style above.
Just install and test.
Hope this helps
MarqueeProgressBar v.1.0
http://www.torry.net/vcl/indicat/meters/sgmarqueeprogressbar.zip
This component encapsulates the marquee style above.
Just install and test.
Hope this helps
ASKER
procedure TTimeOutForm.Button1Click(Sender: TObject);
var
selected : string;
begin
Timer1.Enabled := false;
if Sender is TTimer then
begin
ShowMessage('confirmed ');
end
else //Sender is Button
begin
end;
end;
procedure TTimeOutForm.FormCreate(Sender: TObject);
begin
Timer1.Interval := 10;
ProgressBar1.Max := 300; //300 * 10 = 3000 := 3 seconds
ProgressBar1.Position := 0;
Timer1.Enabled := true;
end;
procedure TTimeOutForm.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepBy(1);
if ProgressBar1.Position = (ProgressBar1.Max) then
begin
Button1Click(Timer1);
end;
end;
ASKER
thanksfor your answers guys, but i just this second figured it out and saw ur posts late. thanks anyway i really appreciate it.
ASKER
also, what if im not using a splash, could i simulate progress betweeb pages with a progress bar and a timber?