Form Langsam "Einblenden" mit Alphablend

[MiniKeks]

Wie geht das genau? Mein programm soll so aus der Transparenz Herauskommen. Also mit Alpha Blend, das is klar. Aber ich kann ja nicht von 255 auf 0 gehen indem ich immer schreibe:

Delphi-Quellcode:

Form1.alphablendvalue := 255;
Form1.alphablendvalue := 254;
Form1.alphablendvalue := 253;

...

Form1.alphablendvalue := 0;

Das muss ja mit einer Schleife oder wie gehen? Bitte kann mir das Jemand erklären?

Danke Vielmals und einen Schönen Abend noch, wünscht euch
MiniKeks


PS: Sorry wegen den Rechtschreibefehler, hab neue Tastatur... :wink:

[SirThornberry]

du könntest einen Timer nehmen oder eben wie schon erwähnt eine schleife

Delphi-Quellcode:

var LCount: Integer;
begin
  for LCount := 0 to 255 do
    if LCount mod 5 = 0 then
    begin
      Form1.AlphablendValue := LCount;
      Application.ProcessMessages;
    end;

so wird der Alphablendwert in 5er Schritten erhöht

[dahead]

so geht es auch:

Delphi-Quellcode:

AnimateWindow(mf.Handle, 1000, AW_Blend xor AW_ACTIVATE);

mf ist logischerweise zu ersetzen.
1000 gibt den intervall in msec an.

braucht shellapi.

[bigg]

Jupp, oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
Self.AlphaBlend := True;
i := 0;

repeat
Self.AlphaBlendValue := i;
Application.ProcessMessages;
inc(i, 5);
Sleep(10);
until i >= 255;

Self.AlphaBlend := False;
end;