Aktion nach einer bestimmter Zeit durchführen

[dominikkv]

oh mann...

Delphi-Quellcode:

procedure delay(msec:longint);  
var  
  start,stop:longint;  
begin  
  start := gettickcount;  
  repeat  
    stop := gettickcount;  
    application.processmessages;  
  until (stop - start ) >= msec;  
end;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Hide;          // Form1 verstecken 
  Delay(2000);   // 2 sekunden warten
  DoScreenshot;  // dann kommt der Code um den Bildschirm zu kopieren 
  Show;          // Form1 wieder sichtbar machen 
end;

alles schön vorgekaut wie taktaky das mag