/*Este exemplo põe um fundo gradiente em azul.

Inclua estes código e seu cpp:*/

void __fastcall TForm1::FormPaint(TObject *Sender)
{
const int Bands=200;
for ( int i = 0; i < Bands; i++ ) 

{
TRect R;
SetRect((RECT *)&R,0,(ClientHeight*i) / Bands,
ClientWidth,(ClientHeight*(i+1)) / Bands);
      Canvas->Brush->Color=RGB(0,0,Bands-i+10);
      Canvas->FillRect(R);
    }
}

void __fastcall TForm1::FormResize(TObject *Sender)
{
Invalidate();
}
/*E isto é tudo.

Para completar, inclua um botão no Form e entre com
código abaixo:*/

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WindowState = wsMaximized;
BorderStyle = bsNone;
FormStyle = fsStayOnTop;
}