J
jbas
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在桌面上画了一些东西，不知能不能保存下来，既屏幕刷新了以后还存在，不会被覆盖
，能不能不用在ontimer事件中一直执行这个程序！
屏幕画图：
procedure TForm1.Button1Click(Sender: TObject);
var
screendc:hdc;
ee:tcanvas;
begin
screendc:=getdc(0);
ee:=tcanvas.Create;
ee.Handle:=screendc;
ee.Brush.style:=bsclear;
ee.Pen.color:=clred;
ee.Ellipse(20,40,80,120);
ee.Free;
releasedc(0,screendc);
end;
屏幕刷新：
procedure TForm1.Button2Click(Sender: TObject);
begin
InvalidateRect(0, nil, true);
end;
我想即使按下botton2进行屏幕刷新以后，那个自己在桌面画的图还在，没有被冲掉！
高手们帮忙！
，能不能不用在ontimer事件中一直执行这个程序！
屏幕画图：
procedure TForm1.Button1Click(Sender: TObject);
var
screendc:hdc;
ee:tcanvas;
begin
screendc:=getdc(0);
ee:=tcanvas.Create;
ee.Handle:=screendc;
ee.Brush.style:=bsclear;
ee.Pen.color:=clred;
ee.Ellipse(20,40,80,120);
ee.Free;
releasedc(0,screendc);
end;
屏幕刷新：
procedure TForm1.Button2Click(Sender: TObject);
begin
InvalidateRect(0, nil, true);
end;
我想即使按下botton2进行屏幕刷新以后，那个自己在桌面画的图还在，没有被冲掉！
高手们帮忙！