Verzögerungen: OnTimer ohne TTimer

TheUnknown · Beiträge: 334

Kann ich OHNE TTimer-Komponente etwas mit Zeitverschiebung auslösen? Also sagen wir mal: Ich klicke auf einen Button, aber erst zwei Sekunden später passiert etwas, weil in der OnClick-Prozedur des Buttons sinngemäß steht:

markieren

Quelltext

1:
2:
3:
4:
5:

begin
  ...
  Wait(2000);
  ...
end;

Der Aufruf ist sicherlich nicht so simpel, wie ich es aufführte, aber geht es irgendwie OHNE TTIMER?

Ehemaliges Mitglied Erhaltene Danke: 1

DELAY

TheUnknown · Beiträge: 334

Danke Luckie!

Hier das, was ich sucht und fand! ;-)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

//Autor der Source ist LUCKIE

procedure Delay(MSec: Longint);
var Start, Stop: Longint;
begin
  Start := GetTickCount;
  repeat
    Stop := GetTickCount;
    Application.ProcessMessages;
  until (Stop - Start ) >= msec;
end;

Frase · Verfasst: So 10.08.03 20:50

!

Soweit Luckie nicht Administrator von Delphi-Total war, dürfte der oben genannte Code nicht von ihm stammen!

Der gleiche Code findet sich auch auf delphi-source.de mit dem Copyright-Vermerk "Beitrag von ehemals Delphi-Total"

Link:www.tipps.delphi-sou.../tut20020910-1.shtml

_________________
LINUX 4 EVER!

Ehemaliges Mitglied Erhaltene Danke: 1

Hm, ich wüßte auch nicht, dass der Code von mir ist. Wo steht denn das?

TheUnknown · Beiträge: 334

Hmmm, als ich auf den "Delay"-Suchen-Link klickte, kamen halt diverse Suchergebnisse. Und irgendwo in diesen Ergebnissen kam halt die geschilderte Source (auf auq.de). Und die Person, die es postete war Luckie...

Daher dachte ich, es war auch Lucikie, der diese Source "erfand"...

Ehemaliges Mitglied Erhaltene Danke: 1

Veröffentlicher nicht gleich Autor. :wink:

TheUnknown · Beiträge: 334

@Luckie: Natürlich, weiss ich ja auch. Aber normalerweise bist Du ja oftmals derjenige, die Lösung kund tut! ;-)

Also: SORRY, okay?

Frase · Verfasst: Di 12.08.03 19:41

hm..
aha.

(@ mods: Dies soll übrigens kein SPAM darstellen... Mir ist bloß nix eingefallen und ich wollte auch nicht so zun, als ob ich mich da plötzlich raushalten würde...)

_________________
LINUX 4 EVER!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

@Frase: Ich verstehe trotzdem nicht was dein Posting für einen Sinn hat?

Gruß
Tino

BungeeBug · Beiträge: 901

keinen ... man könnte auch schreiben

markieren

Quelltext

1:	nachobenschieb

oder

markieren

Quelltext

1:	*postinganzahlerhöh

aber nu wird Off Topic

Kann man nicht nen Timer selbst baun? ich meine ich hätte mel irgendwo so ne WinAPI lösung geshen?!

@ Luckie kann es sein in deinem tut?

Ehemaliges Mitglied Erhaltene Danke: 1

Keine Ahnung, wo ich den Code her habe oder mal benutzt habe.

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

BungeeBug hat folgendes geschrieben:

Kann man nicht nen Timer selbst baun? ich meine ich hätte mel irgendwo so ne WinAPI lösung geshen?!

Das würde über einen Thread gehen. Wird aber dann im Gegensatz zu einem TTimer doch etwas umfangreicher und bringt für das obige Beispiel recht wenig.

_________________
Ist Zeit wirklich Geld?

Gast Erhaltene Danke: 1

Delphihilfe auf -> "createtimer" und "killtimer".
Das ist aber das Selbe wie der TTimer, der basiert dadrauf. Allerdings kann man dann ein Intervall von 0 einstellen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme