Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2747
  • Last Modified:

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. ?

0
SonicM3
Asked:
SonicM3
  • 5
  • 2
1 Solution
 
thiagoblimeiraCommented:
Hello
Which version of delphi are you using? if version >= 2007 you can use the set the style property of the progress bar to pbstMarquee, this way you get a nitty effect as shown below. This way you don't need to inform any information about completion.

Hope this helps

If this is not what you want then tell me please
splash1.jpg
splash2.jpg
0
 
SonicM3Author Commented:
hey thats amazing man, thanks so much!!!!!

also, what if im not using a splash, could i simulate progress betweeb pages with a progress bar and a timber?
0
 
SonicM3Author Commented:
ps: im using delphi 6 :(
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
SonicM3Author Commented:
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 ?
0
 
thiagoblimeiraCommented:
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
0
 
SonicM3Author Commented:


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;

Open in new window

0
 
SonicM3Author Commented:
thanksfor your answers guys, but i just this second figured it out and saw ur posts late.  thanks anyway i really appreciate it.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 5
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now