在窗口中绘图，我这样使用 bitblt 函数 为什么没有任何效果？

Question

procedure TForm1.FormCreate(Sender: TObject);
begin  bitblt(GetDC(Form1.Handle),0,0,
        100,100,image1.Picture.Bitmap.Handle,
        0,0,SRCCOPY);end;

Answer 1

image1.Picture.Bitmap.Handle,
修改为:
image1.Canvas.Handle,

Answer 2

to : aiirii(ari) 
改了，还是不行啊？

Answer 3

你先將你的代碼移到一個button 的onclick下看看如何??

Answer 4

to : aiirii(ari)
可以了，可是问什么一定要放在 botton 的响应里面呢？
谢谢！

Answer 5

因為, 你是在oncreate中使用, 執行完後, 會執行 Onshow, 會 Refresh 一下 窗體, 就如你如現在在另外一個button click中加入一行 Refresh 的效果一樣, 大概如此!