Na, probier es aus. Trial-and-Error ist ne feine Sache für Anfänger. Dein Programm kommt ja offensichtlich nicht nach, das Form verschwinden zu lassen, bevor Du einen Screenshot machst. Ob Sleep() funktioniert oder Delay() weiß ich nicht - versuch es. Jedenfalls:
Delphi-Quellcode:
procedure TForm1.Delay(ms: Longint); {ms = milliseconds}
var
TimeOut: Longint;
begin
TimeOut:= GetTickCount + ms;
While GetTickCount < TimeOut do
begin
{... do something or do nothing}
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Hide;
Delay(1000); //oder so...
//Was auch immer...
Self.Show;
end;
LG, Markus