Entwickler-Ecke :: Thema anzeigen

Gabberman - Mi 25.10.06 21:54
Titel: Timer Problem

Hy Leutz ;)

isch mal wieder :roll:
ich wollte mal mit nem Timer arbeiten, hab aber irgendwie keinen blassen Schimmer davon. Also hab ich in der Delphi Hilfe nachgeschaut und ein irgendwie sinnloses Beispiel bekommen.... Das sagt mir gar nichts. Also hier mein Anwendungsbeispiel. Beim Speichervorgang meines Programms möchte ich das er anzeigt wie weit das Speichern ist mit einem Progressbar. Wenn er fertig ist, soll er ca. 1 Sec warten und dann diesen Progressbar löschen. Hier ist mein Code:

Delphi-Quelltext

1:
2:
3:

Timer1.Interval := 1000000000;
if ActiveControl <> nil then
    Fortschritt.Position:=0;

Nur irgendwie seh ich trotzdem keinen Progressbar (wird zu schnell gelöscht!!!) :evil:
Kann mir da jemand helfen!!!!

Danke

soisseteben - Mi 25.10.06 22:04

du kannst im Ereignis "OnTimer"-Ereignis des Timers etwas ausführen. Das Ereignis tritt ein, wenn die Zeit des Timers ran ist. Danach noch den Timer1.Enable = FALSE und fertsch is (sonst zählt er erneut und löst das Ereignis neu aus).

have fun

Gabberman - Mi 25.10.06 23:50

mkinzler hat folgendes geschrieben:

So stand das sicherlich nicht in der Hilfe drin!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 100;
  if ActiveControl <> nil then
    ActiveControl.Left := ActiveControl.Left + 1;
end;

Also so stands in der Delphi Hilfe unter OnTimer-Ereignis...

@ soisseteben!!! DAS VERSTEH ICH NICH!!! KANNST DU MIR DA MAL BITTE EIN BEISPIEL GEBEN!!!

Blackheart666 - Do 26.10.06 00:07

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=0; // Zurücksetzen
  Timer1.Enabled:=True; //Timer anstellen
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval:=1000; //Führe alle sec. etwas aus
  Inc(i); //Hochzählen
  Caption:=IntToStr(i);
  if i =10 then Timer1.Enabled:=False; // Timer ausschalten
end;

jaenicke - Do 26.10.06 01:26
Titel: Re: Timer Problem

Gabberman hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:

Timer1.Interval := 1000000000;
if ActiveControl <> nil then
    Fortschritt.Position:=0;

Nur irgendwie seh ich trotzdem keinen Progressbar (wird zu schnell gelöscht!!!) :evil:

Wie sollte auch, ich meine dein Timer wird ja erst nach 1000000000 Millisekunden, d.h. 1000000 Sekunden, d.h. 11,5 Tagen das erste Mal aktiv... (Und danach wieder nach derselben Zeit, wenn er nicht deaktiviert wird.)

Ach so: Das ist schon außerhalb des Maximalwerts fürs Intervall, insofern weiß ich nicht, was der Code tatsächlich macht.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!