Solved

delphi progress bar

Posted on 2009-07-12
8
2,391 Views
Last Modified: 2013-11-23
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
Comment
Question by:SonicM3
  • 5
  • 2
8 Comments
 
LVL 8

Accepted Solution

by:
thiagoblimeira earned 500 total points
ID: 24836521
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
 

Author Comment

by:SonicM3
ID: 24836878
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
 

Author Comment

by:SonicM3
ID: 24836882
ps: im using delphi 6 :(
0
 

Author Comment

by:SonicM3
ID: 24838392
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 14

Expert Comment

by:SteveBay
ID: 24838410
0
 
LVL 8

Expert Comment

by:thiagoblimeira
ID: 24838453
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
 

Author Comment

by:SonicM3
ID: 24838550



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
 

Author Comment

by:SonicM3
ID: 24838556
thanksfor your answers guys, but i just this second figured it out and saw ur posts late.  thanks anyway i really appreciate it.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Notepad++ Remote File Management 3 81
Eclipse insufficient memory error 3 103
C#  WebForms or MVC 4 105
Thread safe  opinion 7 126
Here is a helpful source code for C++ Builder programmers that allows you to manage and manipulate HTML content from C++ code, while also handling HTML events like onclick, onmouseover, ... Some objects defined and used in this source include: …
Jaspersoft Studio is a plugin for Eclipse that lets you create reports from a datasource.  In this article, we'll go over creating a report from a default template and setting up a datasource that connects to your database.
This tutorial covers a step-by-step guide to install VisualVM launcher in eclipse.
THe viewer will learn how to use NetBeans IDE 8.0 for Windows to perform CRUD operations on a MySql database.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now