delphi中如何对图象淡入淡出？

Question

最好是在生成动画的软件中做.
在delphi中做也可以
用TCanvas.CopyRect就可以满足你的要求, 不过速度不一定保证
下面是某一种算法
procedure TForm1.Button2Click(Sender: TObject);
var
   newbmp: TBitmap;
   i,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do
begin
  Sleep(100);
 newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),
                       image1.Canvas,
                       Rect(0,0,bmpwidth,i));
 form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;
end;

Answer 1

谢谢TIGER
    那里有DELPHI做屏保的资料或代码？
         
   

Answer 2

做一个类似ScreenSaver的程序，在ScreenSaver运行的时候, 如果有password保护,则CAD便失效. 因此我们骗过Windows,私下设定为ScreenSaver Running状态就可以啦! 
具体来说,只需要使用下面的一个API调用就可以啦. SystemParametersInfo(97,bPasswordEnabled,nil,0); 这里: 
  bPasswordEnabled=1 则CAD失效; 
  bPasswordEnabled=0 则CAD有效. 
同时，Alt-TAB也同时失效了。