在Form的OnPaint事件中填寫：procedureTForm1.FormPaint(Sender:TObject);varx,y:Integer;dcMem,dcFrm:HDC;bmMem,bmOld:HBITMAP;brMem,brOld:HBRUSH;beginx:=120;y:=Self.ClientHeight;dcMem:=GetDC(0);bmMem:=CreateCompatibleBitmap(dcMem,x,y);ReleaseDC(0,dcMem);dcMem:=CreateCompatibleDC(0);SetBkMode(dcMem,TRANSPARENT);bmOld:=SelectObject(dcMem,bmMem);brMem:=CreateHatchBrush(HS_DIAGCROSS,RGB(0,0,255));brOld:=SelectObject(dcMem,brMem);FillRect(dcMem,Rect(0,0,x-1,y-1),COLOR_BTNFACE+1);Rectangle(dcMem,0,0,x,y);dcFrm:=GetDC(Self.Handle);BitBlt(dcFrm,0,0,x,y,dcMem,0,0,SRCCOPY);ReleaseDC(Self.Handle,dcFrm);DeleteObject(SelectObject(dcMem,brOld));DeleteObject(SelectObject(dcMem,bmOld));DeleteDC(dcMem);end;

改變窗體顏色：先選擇窗體，修改窗體的“color”屬性就可以了；

加入圖片，先在窗體上加入一個image控制元件，控制元件在“Additional”控制元件選項卡中；

修改image控制元件屬性：picture；在出現的視窗右下方有“load...” 加入一張圖片即可；如果image顯示圖片全部就修改image的“stretch”屬性，改為“True”就可以了；