请教直接画From问题(50分)

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #1

程序如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
bitbl(Form1.Canvas.Handle,0,0,50,50,
Image1.Canvas.Handle,0,0,SRCCOPY);
end;

执行结果只见Image1的图，不见From有任何变化！？？？？？？？？
(Delphih3.0)

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #2

procedure TForm1.FormPaint(Sender: TObject);
begin
bitblt(Form1.Canvas.Handle,0,0,50,50,
Image1.Canvas.Handle,0,0,SRCCOPY);

end;

 

C

cHengyAng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #3

来晚了一步
就是沈前卫兄的方法，对Form的Canvas操作放在onPaint事件中

 

S

springsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #4

你要form有什么变化？
可以强行激活重画事件。如：form的invalidate过程。

 

P

popeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #5

create事件时画东西是不会画出来的

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-04

• #6

谢谢各位高手，我还是不能看到Form上画出图！！！Why??????

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-04

• #7

在create 中是错的，放到show 或activate 试一试，

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #8

Sorry,Sorry,我犯了个低级错误，沈前卫方法可行！