Alphablending Probleme

[Khabarakh]

Zitat von Hoshy:

(2) Setzen des AlphaBlendValue innerhalb einer Schleife im OnActivate Event. Funktioniert prinzipiell gut, aber auf unterschiedlichen Rechnern läuft die Schleife unterschiedlich schnell ab, d. h. auf dem ersten Rechner blendet die Form in der gewünschten Geschwindigkeit ein, auf einem zweiten Rechner mit besserer CPU macht es "Plopp" und die Form ist sofort da...

Wie wärs mit einem Timer ? Ansonsten den neuen Alphawert einfach durch die Differenzzeit zum Programmstart errechnen.

Delphi-Quellcode:

delta := GetTickCount - StartTicks;
if delta < 3000 {ms} then
  alpha := delta / 3000 * 255;
...