많은 웹 페이지에는 페이지를 더욱 눈길을 끌게 만드는 배경 패턴이 있습니다. 그러나 Delphi에서는 이러한 유형의 양식을 디자인할 수도 있습니다. 즉시 떠오르는 방법 중 하나는 이미지 구성 요소를 사용한 다음 그림을 지정하는 것입니다. 물론 이것은 가능하지만 전체 양식을 채울 수 있는 BMP 이미지는 많은 메모리 공간을 차지하므로 가치가 없습니다. 가장 좋은 방법은 매우 작은 BMP 이미지를 다운로드하여 전체 양식에 붙여넣는 것입니다.
Image 구성 요소를 사용하는 대신 Bitmap 구성 요소를 사용하여 작은 비트맵을 다운로드합니다. Public 섹션에 변수 정의를 추가합니다. Bitmap: TBitmap 그런 다음 양식의 OnCreate 이벤트에서 이 개체를 생성합니다. 코드는 다음과 같습니다.
PROcedure TForm1.FormCreate(Sender:Tobject);
비트맵 시작:=TBitmap.Create;??
Bitmap.LoadFormFile('1.bmp');//그림파일 1.bmp가 1KB밖에 안되나요??
끝;
세 번째 단계는 양식의 OnPaint 이벤트에서 전체 양식에 비트맵 패턴을 붙여넣는 것입니다. 다음 코드를 추가합니다:??procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0;while y 시작하세요 X:=0; 동안 X cancas.Draw(X,Y,Bitmap)를 시작하십시오.?? X:=X+비트맵.폭; 끝; Y:=Y+Bitmap.Heigth; end;end;?양식의 OnDestory 이벤트에서 비트맵 개체를 해제하는 것을 잊었습니다. 특정 코드: Bitmap.Free; 그러면 양식이 표시될 때 웹 페이지와 같은 배경이 생기고 메모리 공간을 많이 차지하지 않습니다.