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

[bbsboyy]

delphi中如何对24位图象淡入淡出？
想做一段动画，动画头和尾采用淡入淡出，是在DELPHI中做还是在
生成动画的软件中做？或二者均可？

谢谢

[tiger]

最好是在生成动画的软件中做.
在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;

[bbsboyy]

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

[tiger]

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

[bbsboyy]

又有新问题了，快去拿分