Изображение закрывает компоненты

[IHaveQuestions]

Проблема такая, ещё =)

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

[fbus]

тычешь на картинку правой кн. мыши
control->sendToBack
возможно не 1 раз надо будет сделать, ну и чтобы родитель был Form1(или как там в программе)

[Johnson]

больше всего ненавижу программы с такими вот "бэкграундами"... сразу руки оторвать автору хочется...

[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.

Пайдетъ?

[CoderHex]

Можно еще вот так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.SendToBack;
end;

[IHaveQuestions]

Спасибо за ответы