Banyak halaman web yang memiliki pola latar belakang yang membuat halaman terlihat lebih menarik. Namun, Anda juga bisa mendesain formulir jenis ini di Delphi. Salah satu metode yang langsung terlintas dalam pikiran adalah dengan menggunakan komponen gambar dan kemudian menentukan gambar. Hal ini tentu saja dapat dilakukan, namun gambar BMP yang dapat memenuhi seluruh bentuk akan memakan banyak ruang memori, dan hal ini tidak bermanfaat. Cara terbaik adalah dengan mengunduh gambar BMP yang sangat kecil dan menempelkannya ke seluruh formulir.
Daripada menggunakan komponen Image, komponen Bitmap digunakan untuk mendownload bitmap kecil. Tambahkan definisi variabel ke bagian Publik: Bitmap: TBitmap; lalu buat objek ini dalam bentuk acara OnCreate, kodenya adalah sebagai berikut:
Prosedur TForm1.FormCreate(Pengirim:Tobject);
mulai Bitmap:=TBitmap.Buat;??
Bitmap.LoadFormFile('1.bmp');//File gambar 1.bmp hanya berukuran 1KB??
akhir;
Langkah ketiga adalah menempelkan pola bitmap ke seluruh formulir di event OnPaint formulir. Tambahkan kode berikut:??procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0; while y mulai X:=0; sementara X mulai cancas.Draw(X,Y,Bitmap);?? X:=X+Bitmap.Lebar; akhir; Y:=Y+Bitmap.Tinggi; end;end;?Lupa melepaskan objek Bitmap di event OnDestory formulir. Kode khusus: Bitmap.Free; Oke, jadi ketika formulir ditampilkan, akan memiliki latar belakang seperti halaman web, dan tidak memakan banyak ruang memori.