Image blinken lassen

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Aya hat folgendes geschrieben:

Hi,

nur um nochmal darauf zurückzukommen warum es mit Sleep nicht geht...

Du gibst dem programm keine chance irgendwo neue Messages zu verarbeiten.. daher pack einfach vor jedes sleep ein Application.ProcessMessages; und schon sollte es gehen (auch ohne repaint)

Au'revoir,
Aya

Hast du dir den Thread wenigstens 10% durchgelesen? :shock:

Er hats anscheinend schon mit beidem probiert und Application.ProcessMessages wurde schon erwähnt :shock:

Aber irgendwie versteht er es nicht.. :rofl:

Ich würde Repaint vor ProcessMessages vorziehen..

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Dann schieb Ich noch einen nach...

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Image1.Visible:=false;
  sleep(500);
  Refresh;
  Form1.Image1.Visible:=true;
  sleep(500);
  Refresh;
  Form1.Image1.Visible:=false;
  sleep(500);
  Refresh;
  Form1.Image1.Visible:=true;
  sleep(500);
  Refresh;
  Form1.Image1.Visible:=false;
  sleep(500);
end;

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Wenigstens was neues

EDIT: Sollte das Refresh nicht VOR dem Sleep :gruebel:

?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme