De nombreuses pages Web ont des motifs d’arrière-plan qui rendent la page plus attrayante. Cependant, vous pouvez également concevoir ce type de formulaire dans Delphi. Une méthode qui vient immédiatement à l’esprit consiste à utiliser le composant image, puis à spécifier une image. C'est bien sûr faisable, mais une image BMP capable de remplir tout le formulaire prendra beaucoup d'espace mémoire, ce qui n'en vaut pas la peine. Le meilleur moyen consiste simplement à télécharger une très petite image BMP et à la coller sur l’ensemble du formulaire.
Au lieu d'utiliser le composant Image, le composant Bitmap est utilisé pour télécharger un petit bitmap. Ajoutez la définition de variable dans la section Public : Bitmap : TBitmap ; puis générez cet objet dans l'événement OnCreate du formulaire, le code est le suivant :
PRécédure TForm1.FormCreate(Sender:Tobject);
commencer Bitmap:=TBitmap.Create;??
Bitmap.LoadFormFile('1.bmp');//Le fichier image 1.bmp ne fait que 1 Ko ??
fin;
La troisième étape consiste à coller le motif bitmap sur l'ensemble du formulaire dans l'événement OnPaint du formulaire. Ajoutez le code suivant : ??procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0;while y commencez X:=0; tandis que X commencez cancas.Draw(X,Y,Bitmap);?? X:=X+Bitmap.Largeur; fin; Y:=Y+Bitmap.Hauteur ; end;end;?J'ai oublié de libérer l'objet Bitmap dans l'événement OnDestory du formulaire. Code spécifique : Bitmap.Free ; D'accord, donc lorsque le formulaire est affiché, il aura un arrière-plan comme une page Web, et il ne prend pas beaucoup d'espace mémoire.