Fade in/Fade out forms

Fade in/Fade out forms

offline
  • Pridružio: 05 Maj 2005
  • Poruke: 84
  • Gde živiš: Cirikovac

Kako da napravim postepeno pojavljivanje i gubljenje forme?
Unapred zahvalan



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Jako tesko i mislim da ti ne bi bilo pametno da gubis vreme na to, osim ako neces da naucis kako se to radi... pripremi se na mnogo znoja

Najbolje ti je da uzmes neku komponentu sa www.tory.net -a.



offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Ako ne zelis da se patis mnogo, a aplikacija treba da radi na Win 2000 ili boljem mozes koristiti AlphaBlend i AlphaBlendValue property forme.

Kada se AlphaBlend postavi na True, vrednost iz AlphaBlendValue odredjuje koliko je forma providna. 0 znaci da je skroz providna, a 255 da se ne providi ni malo. Napravi neku petlju u kojoj ces da menjas ovu vrednost i izgledace kao da se forma pojavljuje ili nestaje.

Jos jednom... AlphaBlend i AlphaBlendValue ne rade na svima sistemima... to pise i u Help-u:
Citat:AlphaBlend does not work on all systems. The application must be running under Windows 2000 or better, and the machine must be a P90 or better.

offline
  • igor86  Male
  • Stručni saradnik
    Web programiranje
  • Pridružio: 24 Maj 2006
  • Poruke: 1633

Mozes jednostavno uraditi pomocu tajmera (za delphi). Kada se aplikacija pokrene AlphaBlend ti je true, a AlphaBlendValue ti je 0. Inace AlphaBlend je boolean promjenljiva, a AlphaBlendValue je bajt (0-255). Postavis tajmer na interval recimo 1ms. I na svaki triger tajmera AlphaBlendValue povecas za recimo 5. Ovako ti to izgleda:

procedure TForm1.Timer1Timer(Sender: TObject); begin if AlphaBlendValue<250 then AlphaBlendValue:=AlphaBlendValue+5 else begin AlphaBlendValue:=255; timer1.enabled:=false; end; end;

Edit by Srki_82: koristi code tagove


A za fadeout upotrijebi logiku. Pozdrav.

Ko je trenutno na forumu
 

Ukupno su 651 korisnika na forumu :: 9 registrovanih, 0 sakrivenih i 642 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: bojank, DPera, dragoljub11987, gorantrojka, hyla, Krvava Devetka, Lord Nem, nemkea71, opt1