Aktion nach einer bestimmter Zeit durchführen

[taktaky]

Zitat von peschai:

Hallo
wie wärs mit dem guten alten "Application.ProcessMessages;"

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Form1.Hide;// Form1 verstecken 
Application.ProcessMessages;
// dann kommt der Code um den Bildschirm zu kopieren 
... 

Form1.Show; // Form1 wieder sichtbar machen 
end;

Leider hilft nicht, da wir das Form1 mindestens eine oder zwei Sekunden ausblenden müssen, sonnst wird das Form1 beim Kopieren mansch mal erwischt.

Wie ich sehe, ich muss den Timer verwenden und fertig.

---

[dominikkv]

was spricht gegen delay?=

[taktaky]

Zitat von dominikkv:

was spricht gegen delay?=

Weil ich vorher nie benutzt und ist mir einfach unklar

[Matze]

Füge die Funktion in dein Projekt ein (Copy&Paste) und rufe sie genauso auf wie Sleep. Ist das so schwer?!

Delay(500); Edit: Anfängertutorials

[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

[taktaky]

Vielen Dank!
Du hast den Code für mich nicht nur vorgekaut sondern auch mit einem Glas Wasser

---