Einzelnen Beitrag anzeigen

Rumpi

Registriert seit: 26. Aug 2003
Ort: Berlin
72 Beiträge
 
#16

Re: Problem mit "Sleep"-Anweisung

  Alt 2. Nov 2003, 17:35
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
Angehängte Dateien
Dateityp: zip cl_thread_146.zip (1,1 KB, 2x aufgerufen)
  Mit Zitat antworten Zitat