怎么在edit上做个背景图片,

如何在edit上做个背景图片,急
如何在edit上做个背景图片

[解决办法]
http://delphi.bibts.com/TEdit-t927693.htm
[解决办法]
声明：
procedure HandleCTLColorEdit(var Msg: TWMCTLCOLOREDIT);message
WM_CTLCOLOREDIT;


代码部分：
procedure TForm1.HandleCTLColorEdit(var Msg: TWMCTLCOLOREDIT);
begin
if Msg.ChildWnd = Edit1.Handle then
begin
SetBkMode(Msg.ChildDC, TRANSPARENT);
Msg.Result := Edit1.Brush.Handle;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Brush.Bitmap:=image1.Picture.Bitmap;//这里背景图片取image1里的图片
edit1.Repaint;
end;


好东东，不过image1里的图片必须为BMP格式的。