Pause wie beim Sleep-Befehl

[Delphi-Narr]

Hi, ich hab jetzt in der Schule Delphi und bin eigentlich recht zufrieden mit meinem Programm. Mein Problem:

Ich habe eine Art Spiel programmiert und es werden erst ein paar Variablen zufällig gesetzt und dann sollen je nach Wert bestimmte Texte und Bilder erscheinen - Klappt auch prima.

Jetzt hab ich da ein Wort stehen, dahinter eine Variable auf einem Label und in der Mitte ein Bild, das sich verändert hat (Altes wurde versteckt, neues an gleicher Position gezeigt).

Danach verschwindet das neue Bild und das alte kommt zurück - soll auch so sein. Aber da ich ja eine gewisse Zeit brauche, um das Bild zu sehen und den Text zu lesen möchte ich ZWISCHEN Erscheinen und Verschwinden eine Pause von 5 Sekunden einfügen.

Habe mir gedacht, da reicht ja der Sleep(5000) Befehl.
Es dauert auch 5 Sekunden, dann wird das alte Bild wieder angezeigt, doch alle Label, die verändert wurden, und das neue Bild sind nicht da. Da wo sie sein sollten ist nur der Hintergrund. Nach 5 Sekunden kommen dann die Werte wieder, die schon 5 Sekunden vorher hätten angezeigt werden sollen und das alte Bild kehrt an seinen Platz zurück.

Was kann ich tun?!? :?:

LG

[BUG]

Klingt so als könnte delay (statt sleep) dir helfen.

MfG,
Bug

[Delphi-Narr]

Danke schonmal.
Ich bekomme jedoch die Meldung bei

delay(5000) | Ist das so richtig?!? Ich hab mir mein Wissen hauptsächlich durch INet angereichert...


[Fehler] Unit4.pas(89): Undefinierter Bezeichner: 'delay'

Scheint wohl nicht so ganz zu stimmen...

LG

[Helmi]

Hallo,

du brauchst natürlich auch noch den Code für Delay.
Delay ist keine Delphi-Board-eigene Funktion.

Hier mal der Link zu der Delay-Procedure link

[Wolfgang Mix]

Hast du die procedure in dein Programm übernommen?

Delphi-Quellcode:

implementation

{$R *.dfm}
procedure delay(msec:longint); 
var 
  start,stop:longint; 
begin

...

Gruß

Wolfgang

[Delphi-Narr]

Hm, das versteh ich erlich gesagt nicht so ganz...
Warum klappt das mit dem Sleep denn nicht?
Die darf ja ruhig einfrieren, es soll ja 5 Sekunden lang nichts passieren, man soll nichts klicken können, einfach eine Art Standbild.

[jfheins]

dann mach einmal vorher und einmal nachher ein application.processmessages() ;)

[Der.Kaktus]

heute meinen netten tag habe *gg*

Delphi-Quellcode:

procedure Delay(msec: integer);
var start, stop: LongInt;
begin
  start := GetTickCount;
  repeat
    stop := GetTickCount;
    Application.ProcessMessages;
  until (stop-start)>=msec;
end;

;-)

[Wolfgang Mix]

Bei mir funktioniert das so:

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('Bitte warten ...');
  delay(5000);
  showmessage('Das Waren ca. 5 secs');
end;

end.

[Der.Kaktus]

Wolfgang? meins iss kuerzer :-D :cheers:

[Delphi-Narr]

Ah, danke. Ich hab das jetzt kopiert und es klappt auch (Also mit meinen Befehlen in der anderen Prozedur).
Ich versteh zwar nicht genau wie, aber das werd ich schon noch lernen^^
Danke!

[Wolfgang Mix]

@Delphi-Narr:
Gerne wieder :-)

@Der.Kaktus:
Zeig 'mal

Gruß

Wolfgang Mix

[Wolfgang Mix]

@Kaki

Zitat:

Wolfgang? meins iss kuerzer

Das sieht eher nach Lucky-Code aus ;-)

Gruß

Wolfgang

[Matze]

Zitat:

Zitat von Wolfgang Mix

Zitat:

Wolfgang? meins iss kuerzer

Das sieht eher nach Lucky-Code aus ;-)

Gruß

Wolfgang

Falls du den von Luckie aus der CL meinst ja. Da hat Der.Kaktus ihn wohl her. Deiner stammt von negaH und ist resourcenschonender laut seinem Eintrag in der CL. Somit ist die kürzere Variante nicht immer besser. ;)
Das nur als Ergänzung.

[Wolfgang Mix]

Zitat:

Deiner stammt von negaH

Ich habe nie behauptet, daß das mein Code ist, den habe ich natürlich von nehaH übernommen, weil vorher auf diesen Link hingewiesen wurde.

Sorry, daß ich Luckie falsch geschrieben hatte. Soll nicht wieder vorkommen ;-)

Gruß

Wolfgang

[Apollonius]

Warum wird in dem Code aus der CL überhaupt ein Event erzeugt? Man könnte MsgWaitForMultipleObjects auch mit 0 als erstem Parameter aufrufen.

[sx2008]

Eigentlich ist die Lösung mit Delay() nicht besonders sauber. :?
Was passiert z.B. wenn während Delay()noch läuft das Formular geschlossen wird und sich dieses selbst freigibt?
=> Crash
Oder was passiert, wenn man während Delay() läuft einen Button klickt, der wiederum eine Methode aufruft,
die ebenfalls Delay() aufruft?
Es können sehr üble Dinge passieren, wenn man Application.ProccessMessages zu oft oder unkontrolliert aufruft. :warn:

Mit einem Timer kann man einen eventbasierten Ablauf ausführen.
Dazu ruft man eine Methode auf und übergibt die Verzögerungszeit und die Methode, die aufgerufen werden soll.

Delphi-Quellcode:

procedure CallDelayedMethod(delay:cardinal; method:TThreadMethod);

Der Timer wird gestartet und die übergebene Methode nach Ablauf der Zeit aufgerufen.

Im Anhang gibt es dazu ein Demo das die Fensterfarbe angelehnt an eine Ampel verändert.