Pojawianie się formularza

[Pitek]

Witam !
Chciałbym zrobić coś takiego aby formularz programu otwierał się w taki sposób alby stopniowo malała jego przezroczystość (stopniowo się pokazywał).
Czy jest to temat prosty, czy trzeba jednak wykombinować jakąś zawiłą funkcję której w ogóle nie zrozumie?
Nie mam pojęcia do jakiego parametru się odwołać. Zauważyłem że program Babilon Cyfrowego Barona zachowuje się w sposób o jaki chodzi.
Czy można potem sterować szybkością pojawiania się?

P.S. Przepraszam Baronie ponieważ pojawiłem się na chat'cie a potem ścięło mi net i głupio wyszło

[Cyfrowy Baron]

To bardzo proste. Ustawiasz właściwość AlphaBlend formularza na true. Właściwość AlphaBlendValue ustawiasz np. na 1. Właściwość AlphaBlend włącza przeźroczystość formularza w stopniu określonym we właściwości AlphaBlendValue, przy czym wartość 0 to formularz całkowicie przeźroczysty, a 255 to nieprzeźroczysty. Pośrednie wartości określają stopień przeźroczystości. Kanały alpha w okienkach są obsługiwane przez system Windows począwszy od wersji XP. W Win 2k chyba też, ale pewien nie jestem. Wcześniejsze wersje nie obsługują kanałów alpha.
Umieszczasz na formularzu komponent Timer1 typu TTimer, ustawiasz mu właściwość Enabled na true, a Interval np. na 40.
W zdarzeniu OnTimer obiektu Timer1 zmieniasz stopień przeźroczystości formularza:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if(this->AlphaBlendValue < 238)
 {
  this->AlphaBlendValue += 34;
 }
 else
 {
  this->AlphaBlendValue = 255;
  Timer1->Enabled = false;
 }
}

Dobrana przeze mnie szybkość wyłaniania się okna jest chyba najbardziej optymalna, nie za szybko i nie za wolno. Szybkością wyłaniania możesz sterować zmieniając właściwość Interval obiektu Timer1, ale zbyt duża wartość sprawi, że okno będzie wyłaniać się skokowo. Przy zmianie szybkości wyłaniania lepiej jest zmieniać wartość dodawaną do AlphaBlendValue, przy czym powinna to być wartość podzielna bez reszty przez wartość podaną w warunku. W przykładzie dodawana jest wartość 34, gdyż 238 : 34 = 7, czyli zegar wykona siedem cykli po których przeźroczystość zostanie całkowicie wyłączona.

[Pitek]

A jak ten myk zastosować przy zamykaniu programu bo sprawdzanie w zdarzeniu onClose formularza głównego czy jego AlphaBlendValue przybrała wartość 0 nie działa. Program co prawda "zanika" ale potem się nie zamyka.

[Cyfrowy Baron]

Nie polecam tej sztuczki przy zamykani. Po wybraniu przez użytkownika polecenia zamknięcia program powinien po prostu jak najszybciej zakończyć działanie bez udziwnień. Jeżeli się upierasz przy tym, to wymaga to użycia zdarzenia OnCloseQuery i zmiennej sterującej. W zdarzeniu tylko uruchamiasz zegar. Pokombinuje! Jak sobie nie poradzisz to pomogę, ale dopiero jutro, gdyż dziś już mi się nie chce.

[Cyfrowy Baron]

Podaję gotowe rozwiązanie:

Plik nagłówkowy np. Unit1.h:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
        bool close, timeSwitch;

Plik źródlowy np. Unit1.cpp:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 close = false;
 timeSwitch = false;
 AlphaBlend = true;
 AlphaBlendValue = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if(timeSwitch)
 {
    if(this->AlphaBlendValue > 34)
    {
     this->AlphaBlendValue -= 34;
    }
    else
    {
     this->AlphaBlendValue = 1;
     Timer1->Enabled = false;
     close = true;
     Close();
    }
 }
 else
 {
    if(this->AlphaBlendValue < 238)
    {
     this->AlphaBlendValue += 34;
    }
    else
    {
     this->AlphaBlendValue = 255;
     Timer1->Enabled = false;
    }
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 timeSwitch = true;
 Timer1->Enabled = !close;
 CanClose = close;
}
//---------------------------------------------------------------------------

Wyjaśnienie:
Zmienna CanClose występująca jako argument funkcji-zdarzenia OnCloseQuery dla formularza, w zależności od przyjętej wartości decyduje o tym czy można zamknąć okno czy nie. Jeżeli przekażesz zmiennej wartość false, to okno się nie zamknie. By je zamknąć trzeba przekazać jej wartość true, która to wartość jest domyślną dla tej zmiennej.

W przykładzie przy próbie zamknięcia programu wywoływane jest zdarzenie OnCloseQuery, a tam:

1. przestawiana jest zmienna sterująca timeSwitch decydująca o tym, który kod wykona się w zdarzeniu OnTimer obiektu Timer1. Przy wartości timeSwitch = false; zdarzenie OnTimer będzie realizować kod zmniejszający przeźroczystość, przy true - zwiększający,
2. właściwość Enabled obiektu Timer1 ustawiana jest na wartość odwrotną od wartości zmiennej close, po uruchomieniu programu zmienna close przyjmuje wartość false, więc przy zamknięciu właściwość Enabled przyjmuje wartość odwrotną, a więc true, co uruchamia zegar,
3. zmiennej CanClose przypisana zostaje wartość zmiennej close, czyli false, więc okno się nie zamknie.
4. w zdarzeniu OnTimer zegar sprawdza wartość zmiennej timeSwitch, a ponieważ teraz ta zmienna ma wartość true, to wykonywany jest kod zwiększajacy przeźroczystość - patrz pkt. 1,
5. gdy warunek if(this->AlphaBlendValue > 34) dobrnie do końca, czyli nie jest już spełniany wykonywany jest kod w bloku else, a tam Timer1 jest zatrzymywany, zmienna close przyjmuje wartość true i wywołana jest funkcja Close() nakazująca zamknięcie okna programu, co znów wywołuje zdarzenie OnCloseQuery,
6. teraz jednak w zdarzeniu OnCloseQuery właściwość Enabled obiektu Timer1 ustawiana jest na wartość odwrotną od wartości zmiennej close, a ponieważ teraz ta zmienna ma wartość true - patrz pkt. 5, więc Enabled = false; a co za tym idzie zegar nie jest już uruchamiany,
7. zmiennej CanClose przypisana zostaje wartość zmiennej close, tym razem jednak jest to już wartość true, a wiec okno zostanie zamknięte, a ponieważ jest to główne okno programu, więc program zakończy działanie.