Многие веб-страницы имеют фоновые узоры, которые делают страницу более привлекательной. Однако вы также можете создать форму такого типа в Delphi. Один из методов, который сразу приходит на ум, — использовать компонент изображения, а затем указать изображение. Это, конечно, осуществимо, но изображение BMP, способное заполнить всю форму, будет занимать много места в памяти, а это нецелесообразно. Лучший способ — просто загрузить очень маленькое изображение BMP и вставить его поверх всей формы.
Вместо использования компонента «Изображение» компонент «Растровое изображение» используется для загрузки небольшого растрового изображения. Добавьте определение переменной в раздел Public: Bitmap: TBitmap, затем сгенерируйте этот объект в событии OnCreate формы, код следующий:
ПРОЦЕДУРА TForm1.FormCreate(Отправитель:Объект);
начать Bitmap:=TBitmap.Create;??
Bitmap.LoadFormFile('1.bmp');//Файл изображения 1.bmp имеет размер всего 1 КБ??
конец;
Третий шаг — вставить растровый шаблон во всю форму в событии OnPaint формы. Добавьте следующий код:??procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0; while y начать X:=0; в то время как Х начать cancas.Draw(X,Y,Bitmap);?? X:=X+Растровое изображение.Ширина; конец; Y:=Y+Растровое изображение.Высота; end;end;?Забыли освободить объект Bitmap в событии OnDestory формы. Конкретный код: Bitmap.Free; Хорошо, когда форма отображается, она будет иметь фон, как у веб-страницы, и не будет занимать много места в памяти.