窗口图像覆盖后的重写为题？

Question

没人会吗？
用api的人很少吗？

Answer 1

这种事件你要用在OnPaint事件上，如FormPaint

Answer 2

尽量用delphi的Canvas对象不要用api，容易出错
如Canvas.CopyRect等，应该够用了。

Answer 3

用bitblt(form1.canvas.handle,...)
在onpaint中画画。

Answer 4

我知道了，不过canvas.copyrect 能做特效吗？比如说平铺。

Answer 5

没有想成的方法，但可以自己排rect

Answer 6

procedure TForm1.FormPaint(Sender: TObject);
var
  w,h,x,y,i,j:integer;
  rect1,rect2:Trect;
  tmp:TBitMap;
begin
  tmp:=Tbitmap.Create;
  tmp.LoadFromFile('D:\祝海钢\练习\rect\1.bmp');
  w:=tmp.Width;
  h:=tmp.Height;
  x:=0;
  y:=0;
  for i:=0 to (Form1.Height div h + 1) do
  begin
    x:=0;
    for j:=0 to (Form1.Width div w +1) do
    begin
      Rect1 := Rect(x,y,x+w,y+h);
      Rect2 := Rect(0,0,w,h);
      Form1.Canvas.CopyRect(Rect1,tmp.Canvas,Rect2);
      x:=x+w;
    end;
    y:=y+h;
  end;
  tmp.Free;
end;
 注意：该方法不能用于MDIForm