Hi,
Zum einblenden einer Form im Vollbildmodus lege ich zuerst eine schwarz gestrichene Form über sie und lasse sie(die schwarze Form) dann nach und nach durchsichtig werden.
Dafür benutze ich folgende Prozedur:
Delphi-Quellcode:
Procedure TDecke.FadeIn;
var i:Byte;
begin
for I := 25 downto 0 do begin
AlphaBlendValue:=round(i*10.2);
Zeit.delay(10);
end;
end;
Leider flackert dieser Vorgang ungemein. Es bilden sich Streifen mit leicht unterschiedlicher Farbabstufung.
Außerdem scheint die Berechnung sehr hohe Systemanforderungen zu stellen. So dauert es bei meinem Rechner (1 GHz) eine ganze statt einer viertel Sekunde.
Ich würde mich freuen, wenn mir jemand Helfen könnte.