Einzelnen Beitrag anzeigen

Benutzerbild von dajuhsa
dajuhsa

Registriert seit: 20. Apr 2007
397 Beiträge
 
Turbo Delphi für Win32
 
#1

Formular einblenden/einfaden

  Alt 5. Jul 2007, 13:47
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

[edit=CalganX]Beitrag angepasst. Titel angepasst. Mfg, CalganX[/edit]
[edit=CalganX]Code-Style. Mfg, CalganX[/edit]
das Essen ist wie das Internet - Downstream ist immer angenehmer als Upstream
-
Warum missbraucht die ganze Programmierwelt Images als Paintboxen
  Mit Zitat antworten Zitat