Hallo,
ich hab nur noch ein kleines Problem mit meinem gebastelten Code(ich weiß, er sieht schrecklich aus und man könnte es auch einfacher schreiben, aber so gut beherrsch ich das noch nicht
):
Delphi-Quellcode:
var
x: Integer;
Handle2: DWORD;
//irgendwo davor:
x:=100;
try
Repeat
Handle2:=StrToInt(ListView1.Items.Item[1].Caption);
SetWindowLong(Handle2, GWL_EXSTYLE, GetWindowLong(Handle2, GWL_EXSTYLE) or WS_EX_LAYERED);
begin
try
repeat
x:=x-1;
SetLayeredWindowAttributes(Handle2, 0, trunc((255 * x) / 100), LWA_ALPHA);
until
x=0;
finally
{--da muss noch etwas rein, um das Fenster zu minimieren--}
SetLayeredWindowAttributes(Handle2, 0, trunc((255 * 100) / 100), LWA_ALPHA);
end;
end;
ListView1.Items.Item[1].Delete;
Until
ListView1.Items.Count<4;
finally
Button3.Enabled:=false;
end;
Ich habe alle laufenden Fenster in eine ListView geschrieben und lese sie daraus aus. Die Fenster werden dann von 100%Transparenz auf 0% Transparenz "ausgeblendet". Dann werden sie minimiert und die 100% Transparenz wieder eingestellt. Und jetzt kommt mein Problem:
Das zweite Fenster wird von 100% auf 0% "ausgeblendet" und dann wiederholt sich das ständig. Mit den anderen offenen Fenstern passiert gar nix!
Was muss ich ändern, damit das nicht passiert? Ich hoffe, dass mir jemand helfen kann. Es muss ja auch nicht so früh morgens sein
!
Ich freue mich über jede Antwort
Man schreibt/liest sich
S2B