Problem mit "Sleep"-Anweisung

[Luckie]

Jupp. Das war seine Version ohne Application.Processmessages und da ist es zutreffend.

[himitsu]

Ach so, dachte das war 'ne Antwort auf Daniel B's Post

[Luckie]

Als ich angefangen hatte, hatte er noch nicht gepostet.

[Christian Seehase]

Moin Luckie,

Zitat von Luckie:

Das funktioniert nicht weil sleep dein Programm ganz lahm legt.

Na ja, nicht das ganze Programm, sondern den Thread in dem es aufgerufen wird.
Wenn das der Hauptthread des Programmes reagiert dieser für die angegebene Zeitspanne auf nichts mehr, abgespaltene Threads laufen aber weiter.
[EDIT]
Ausser sie greifen während des Sleep Intervalls auf Teile des Hauptthreads zu, z.B. per Synchronize, dann bleiben diese auch solange stehen und warten.
[/EDIT]

[Luckie]

Nun ja, ich wollte hier nicht noch mehr Verwirrung stiften. Wie du in dem Shellexcute Thread mit deinem letzten Posting.

[Rumpi]

Hi,

ich habe mir nicht die Mühe gemacht alle postings genau zu lesen,
jedoch würde auch hier die TTimerThread class helfen.

Delphi-Quellcode:

procedure Form1.OnCreate;
var
  aTimer : TTimerThread;
begin
  // dein Label ist schon sichtbar !
  FTimer := TTimer.Create( 2000, OnTimer );
end;

procedure Form1.OnTimer( Sender: TObject );
begin
  DeinLabel.Visible := False;
  if Sender is TTimerThread then
    TTimerThread( Sender ).Stop;  // sonnst bist du hier alle 2sec !
  // Nicht Free oder NilAndFree !
  // FreeOnTerminate = True im Thread
end;

mfg Rumpi

[XeRo]

Man könnte auch vor dem Sleep eine Form1.Refresh geben