请问怎么给Panel设置图形背景？

Question

请问怎么给Panel画背景图形，好比Form有个OnPaint事件，利用Canvas.Draw（）方法可以画背景颜色，请问Panel怎么实现呢？能给出例子吗？无比感谢！

Answer 1

其它你可以换个方法来实现，在上面放个Timage组件...

Answer 2

var mycanvas:tcanvas;
   bit:TBitmap;
begin
  mycanvas:=TCanvas.Create;
  mycanvas.Handle:=getdc( Panel1.Handle);
  bit:=TBitmap.Create;  //这几步你可以随便了，这里放了一个图
  bit.LoadFromFile('f:\D1.bmp');
  mycanvas.StretchDraw(rect(0,0,Panel1.Width,Panel1.Height),bit);
  mycanvas.Free;    //一定记得释放

Answer 3

procedure TForm1.Button2Click(Sender: TObject);var c:TCanvas;begin c:=TControlCanvas.Create; TControlCanvas(c).Control:=Panel1; c.Brush.Style:=bsClear; c.Pen.Color:=clBlue; c.Rectangle(5,5,15,15); c.Free;end;