Programm soll 250ms in warteschleife gehen und ...

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo,
ich habe ein Problem.
Ich möchte das mein Programm ca. 250ms in Warteschleife geht in dabei eine Aktion ausführt.
Ausführt ist nicht das richtige Wort. Es soll zb. 250ms ein Label angezeigt werden. Die Prozedure soll solange warten bis die 250ms vorbei sind und danach weiter arbeiten.
Label ausblenden und weiter rechnen oder so.

Ich habe es bisher mit "sleep" gemacht das gfällt mir aber nicht ,weil dann das ganze Programm nicht reagiert.

Könnt Ihr mir helfen wie man das noch machen kann?

Ich DANKE euch...

Gruß

Mathias

Phantom1 · Beiträge: 390

Probiere es mal hiermit:

markieren

Delphi-Quelltext

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

procedure delay(msec: Cardinal); 
var start: Cardinal; 
begin 
  start:=gettickcount; 
  while gettickcount - start < msec do
    application.processmessages; 
end;

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo,
danke erstmal für die Antwort.
Kannst du mir auch noch sagen was dieses application.processmessages macht bzw. funtioniert?

Gruß

passiv · Verfasst: Fr 15.09.06 09:05

die lässt das Programm weiterarbeiten
steht in der Hilfe von Delphi :wink:

_________________

Die Probleme, die es in der Welt gibt, sind nicht mit der gleichen Denkweise zu lösen, die sie erzeugt hat.
Albert Einstein

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

Genauer gesagt, wird die Message Queue abgearbeitet (was der Titel der Methode schon sagt).

Sprich, obwohl Dein Programm (der Mainthread) an dieser Stelle nicht die Kontrolle an die VCL (GUI) abgeben würde - mit diesem Befehl tut er das.

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

Ehemaliges Mitglied Erhaltene Danke: 1

Ich danke euch erstmla werde das mal testen und dann berichten...

Mathias

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme