Tworzenie bannera na stronie

Aby utworzyć na formularzu banner podobny do bannerów internetowych należy:

1. umieścić na formularzu komponent ImageList (zakładka Win32)

2. ustawić odpowiednio do wielkości bannera właściwości Height i Width komponentu ImageList

3. wczytać do ImageList poszczególne klatki animacji bannera przez dwukrotne kliknięcie komponentu ImageList, a następnie kliknięcie przycisku Add... (należy ustawić Transparent Color na clNone po wybraniu obrazków)

4. umieścić na formularzu komponent Timer (zakładka System)

5. ustawić właściwość Interval komponentu Timer, która oznacza szybkość zmiany obrazka w ms

6. wstawić na formularz komponent Image, na którym wyświetlany będzie banner

7. w pliku nagłówkowym (CTRL+F6) formularza w sekcji private tworzymy zmienną:

Unit1.h

private:
   int nrObrazka;

8. wstawiamy do komponentu Image1 obrazek z pierwszą klatką bannera

9. utworzyć zdarzenie OnTimer dla Timera

Unit1.cpp

void __fastcall TForm1::TimerTimer(TObject *Sender)
{
   Image1->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
   ImageList1->Draw(Image1->Canvas, 0, 0, nrObrazka);
   if (++nrObrazka > ImageList1->Count - 1) nrObrazka = 0;
}

10. ustawić właściwość Cursor komponentu Image1 na crHandPoint

11. utworzyć funkcję obsługującą zdarzenie OnClick dla komponentu Image:

Unit1.cpp

void __fastcall TForm1::Image1Click(TObject *Sender)
{
   Image1->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
}