Ich habe gerade die "alte" Version kompiliert und da ist mir aufgefallen, dass man nicht das Fenster an sich, sondern die enthaltenen Controls neu zeichnen muss, dann klappt es auch.
Delphi-Quellcode:
Procedure TForm1.TimerAnimateTimer(Sender: TObject);
Begin
TimerAnimate.Enabled:=False;
if AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_ACTIVATE) then
begin
BtnAnimate.Repaint;
BtnOut.Repaint;
end;
End;