Ein- & Ausblenden einer Form

[Störtebeker]

Hallo, DP-User:

den folgenden Code verwende ich, um die Form "sanft" einzublenden.

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var
 i: integer;
 begin
  for i := 0 to 255 do begin
    AlphaBlendValue := i;
    AlphaBlend:=true;
    Sleep(1);
    Application.ProcessMessages;
  end;
  end;

nun will ich die Form auch wieder auf diese Weise ausblenden. Und da dachte ich an einen Timer mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 begin
   Timer1.Interval := 5000;
  if ActiveControl <> nil then
    ActiveControl.Left := ActiveControl.Left + 1;
  for i := 255 to 0 do begin
    AlphaBlendValue := i;
    AlphaBlend:=true;
    Sleep(1);
    Application.ProcessMessages;
  end;

Aber es geht nicht. Was mache ich falsch? :gruebel:

[ArmyMan]

Du musst anstelle von "to", "downto" benutzen.
Denn beim "to" ist die initialisierungszahl von i (255) bereits grösser als 0, und deshalb springt er wieder raus.

Greetz

[Störtebeker]

Danke, das war der entscheidene Hinweis. :thumb: