BringToFront Problem - Program in der Taskleiste blinkt nur

[Piro]

Folgendes habe ich probiert:

Delphi-Quellcode:

 if GetForeGroundWindow() <> frm_main.Handle then
   ShowMessage('GetForeGroundWindow() <> frm_main.Handle') // Tritt auf wenn das Fenster versteckt (=inaktiv) ist und es nur blinkt in der Taskleiste
 else
   ShowMessage('GetForeGroundWindow() = frm_main.Handle') // Tritt auf das Fenster zu sehen ist und aktiv
 end;