ProgressBar problemer

[WEXP]

Jeg har akkurat begynt med Delphi programmering. Jeg har tenkt å lage et program der man skriver et åttesifret nummer så står det "Connecting to server"(Bare på kødd for en kompis) og en strek som beveger seg. Jeg har fått til alt untatt streken. HVORDAN får man en ProgressBar til å flytte seg sakte???

[dalai]

du kan bruke en timer som oppdaterer seg hvert f.eks sekund. og for hver gang den oppdaterer seg så kan du øke progressbaren din.

 

timer komponenten ligger under system-fanen. dra den over på formen din. sørg for at den er enabled og interval = 1000 (1000 millisekunder = 1 sekund).

 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.stepby(10);

if progressbar1.position = 100 then
timer1.enabled := false;
end;

 

denne progressbaren stopper på 100 (fullt). da disables timeren