Alpha 0%

[CPP-Programmer]

Ahhh gut danke. Vielleicht noch kurz was dazwischen, was ist daran falsch

Delphi-Quellcode:

var eingabetext: textfile; 
begin
write(eingabetext, edit1);
rewrite(eingabetext, 'c:\data.txt');
close(eingabetext);
end;

und stimmt das dann so:

Delphi-Quellcode:

procedure Tform1.createform(sender: Tobject);
var start: cardinal;
begin
start:=GetTickCount;
repeat AlphaBlendValue:=255-(3000*255 div (GetTickCount-start+1)) until GetTickCount>=start+3000;
end;