Flackernder Fade-Effect

[PiQ]

also ich machs so

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.AlphaBlendValue := form1.AlphaBlendValue - 1;
  if form1.AlphaBlendValue = 10
    then
      begin
        timer1.Enabled := false;
        form2.show;
        form1.hide;
      end;
  end;

isses das was du meinst