Problem mit "Sleep"-Anweisung

[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