Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Авг

Как сделать изображение на заднем фоне

Posted by Chas under Delphi, Пост-обзор

Вставленная картинка, закрывает собой компоненты, просто хочется чтобы был красивый бэкграунд, тоесть фон. Но он закрывает некоторые мои компоненты. Как его правильно разместить?

Stilet:

unit Unit1;
interface
uses      jpeg,

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;
type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure fon(var m:TWMEraseBkgnd); message WM_EraseBkgnd;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var    JpegIm:TJPEGImage;   bm: TBitMap;

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.fon(var m: TWMEraseBkgnd);

begin

 StretchBlt(Canvas.Handle,0,0,Width,Height,bm.Canvas.Handle,0,0,bm.Width,bm.Height,srccopy);

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

 bm := TBitMap.Create;

 JpegIm := TJpegImage.Create;

 JpegIm.LoadFromFile('D:\(32).jpg');

 bm.Assign(JpegIm);

end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 bm.free;JpegIm.free;

end;
end.