Erkennen wenn Anwendung im Vordergrund

[arc]

Problem gelöst, danke für die Hinweise!

Die Lösung ist einfach. Eine neue Methode anlegen z.B.

Code:

procedure TForm_Main.ApplicationActivate(Sender: TObject);
begin
  global_screen_update:=true;
end;

Und irgendwo zuweisen, z.B. im onCreate

Code:

procedure TForm_Main.FormCreate(Sender: TObject);
begin
  Application.OnActivate:=ApplicationActivate;
end;

Zitat von Luckie:

Du hast dir meinen Link nicht angeguckt richtig? Löse im Timer ein Repaint der Oberfläche aus.

Ich arbeite mit Asphyre eXtreme, einem DirectX Framework. Die Oberfläche ist lediglich ein Container für das DirectDraw Surface.