Fade in/Fade out forms

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da napravim postepeno pojavljivanje i gubljenje forme?
Unapred zahvalan

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.