Formular einblenden/einfaden

[dajuhsa]

ich finds recht schön, weiß net obs des hier schon gibt aber vielleicht gefällt es ja jemandem

Delphi-Quellcode:

procedure Einblende(Form: TObject; XOrt: Integer; YOrt: Integer);
var
  Blend: Boolean;
  Value: Byte;
  i    : Integer;
  Pause: Boolean;
begin
  with Form as TForm do
  begin
    //Alte Werte speichern
    Blend := AlphaBlend;
    Value := AlphaBlendValue;
    //Form erneuern
    Hide;

    //Alte Werte Überschreiben und auf Blend-Anfang
    SetBounds(Xort+8, Yort+8, Width-16, Height-16);
    AlphaBlend := true;
    AlphaBlendValue := 0;
    //Form anzeigen
    Show;

    //langsam sichtbar machen
    for i := 1 to 8 do
    begin
      Pause := not Pause;
      if Pause then
      begin
        AlphaBlendValue := i*32-1;
        SetBounds(Left-1, Top-1, Width+2, Height+2);
      end;
      if i<8 then
        Refresh;
      sleep(5);
    end;

    //Alte Werte Widerherstellen
    AlphaBlend := Blend;
    AlphaBlendValue := Value;
  end;
end;

Kann sein, dass es auch einfacher geht aber ich bin froh, das hier gemacht zu haben :wink:

[edit=CalganX]Beitrag angepasst. Titel angepasst. Mfg, CalganX[/edit]
[edit=CalganX]Code-Style. Mfg, CalganX[/edit]