Tworzenie gwieździstego tła Aby utworzyć na formularzu proste gwieździste tło należy zmienić jego kolor na czarny i w zdarzeniu OnCreate formularza umieścić:
Unit1.cpp
#include <stdlib.h> void __fastcall TForm1::Button1Click(TObject *Sender) { int Num_Stars = 1000000; TColor kolor; randomize(); for (int i = 1; i <= Num_Stars; i++) { int odcien = random(256); kolor = TColor(RGB(odcien, odcien, odcien)); Canvas->Pixels[random(ClientWidth)][random(ClientHeight)] = kolor; } }