Två frågor

2 svar · 370 visningar · startad av gundeman 4 feb. 2001

gundemanMedlem sedan jan. 200167 inlägg

Trådstart4 feb. 2001 18:54#1

1)Jag vill göra en en procent räknare som först skriver ut 0% i en label och sen ökar med en procent i sekunden tills den når hundra.
2)Om man har tre shape objekt som från början är osynliga och efter en sekund skall den första bli synlig och efter två sekunder den andra osv tills alla tre är synliga sen skall proceduren börja om. Jag har lyckats göra detta med två objekt, men inte fler. Jag vet att man kan använda en timer per objekt, men vill helst slippa detta.

Alpha IIMedlem sedan maj 20002 993 inlägg

4 feb. 2001 19:43#2

Deklarera först en integer variabel.
Lägg sedan till en Timer.
I onTimer skriver do följande kod:

Label1.caption := variabel+'%';
variabel := variabel + 1;

svampträskMedlem sedan juni 200070 inlägg

6 feb. 2001 09:46#3

eller...

sätt timer intervallet till 1000.

1.
OnTimer...
var hej: integer;
begin
label1.Caption := IntToStr(hej) + '%';
Inc(hej);
end;

2.
OnTimer
var hej: integer;
begin
Inc(hej);
case hej of
1: shape1.visible := True;
2: shape2.visible := True;
3: shape3.visible := True;
end;
if hej > 3 then timer1.enabled := false;
end;