[Delphi] Prośba ...

Czy może mi ktoś napisać procedure która powodować będzie
dojechanie do wartości 100 w jakimś tam gauge1 a po tym wyświetli się obrazek, a zniknie text który miał by się pojawiać przy uruchomieniu tego gauga. Bo ja mam problem że jak gauge1 doleci do końca to dopiero pokaże się ten text który miał się pokazać na początku odtwarzania tego gauga.

--
Don't worry be heapy ...

Azgon, na pewno ktos Ci to napisze (ja teraz nie mam czasu), ale pisz sensowne tematy watkow. "Prosba" nic nie znaczy.

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

moze chodzi o cos takiego:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Gauge1.progress:=Gauge1.progress+random(10); //losuje wartosc ;p (powinno byc mondrzej) czyt wyliczac
IF Gauge1.progress>=Gauge1.maxValue then
begin
LAbel1.visible:=false; Image1.visible:=true;
end;
end;

--
"I think I'm Dumb, maybe just happy"

var
j:integer;

label1.caption:='ten twój tekst';
for j:=0 to 100 do
begin
gauge.progress:=j;
application.processmessages;
sleepex(40, false);
end;

label1.caption:=''; // Znikanie napisu
obrazek.visible:=true;

--

Delphi 6

Pozdrówka

ok zaqdzialało
więc dzięki

ale z tym losowaniem wartości do tego gauga1 to mnie rozwaliłeś.

--
Don't worry be heapy ...