Eigenschaften eines Objektes für ein paar Sekunden zuweisen

[Der_Unwissende]

Hi,

was schon in der Frage von mkinzler steckt (und wahrscheinlich Dein Problem ist), Warten kann die weitere Abarbeitung blockieren. Typische Beispiele währen eben sleep (da der aufrufende Thread schlafen gelegt wird, ganz ungünstig im Main - Thread) bzw. auch das Warten in einer While-Schleife (die z.B. per GetTickCount eine bestimmte Zeit abwartet).

Es gibt dazu gleich verschiedene Lösungsansätze. Etwas unschön (aber funktionsfähig) ist die Verwendung einer Schleife, in der Du ständig Application.ProcessMessages aufrufst, also z.B.

Delphi-Quellcode:

procedure wait(const delay: Cardinal); 
var time: DWORD;
begin
  time := GetTickCount;
  while (GetTickCount - time) < delay do
    Application.ProcessMessages;
end;

Alternativ dazu kannst Du natürlich das Warten (bzw. auch das komplette Färben) in einen anderen Thread auslagern (achtung, der muss beim Zugriff auf den Button mit dem VCL - Mainthread synchronisiert werden). Legst Du den mittels sleep schlafen hat das keinen Effekt auf das restiliche Programm.

Eine weitere Möglichkeit (vielleicht die einfachste und schönste) ist es Delay zuverwenden (einfach mal in der Dp suchen). Da hat mal jmd. eine Funktion gepostet, die auf MsgWaitForMultipleObjects wartet, aber durch alle Ereignisse "aufgeweckt" wird, die Ereignisse abarbeitet und das Warten fortsetzt.

Gruß,
Der Unwissende