一个最值得学习和研究的问题！！！[关于窗口效果]——》在线等待，高分相送！！

Question

高手：   本人最近又遇到一问题！有点急，请尽快回答！本人有高分相送！问题是这样的：我现在知道的窗口效果只渐隐渐出的那种！我想要一种像OICQ那种效果的窗口！就是在窗口隐藏时渐渐地移出桌面！显示时又渐渐移到桌面中间！！
   请问一下这种效果怎样实现呀！谢谢各位高手！[请写出代码！]

Answer 1

给你看个例子
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,i: integer;
  BitMap : TBitMap;
  ptr : PByteArray;
begin
  if GetDeviceCaps(Image1.Canvas.Handle,NUMCOLORS) <> -1 then
  begin
      ShowMessage('You must be in a high color mode to run this program');
      Close;
  end;
  BitMap := TBitMap.Create;
  try
      BitMap.LoadFromFile('factory.bmp');
      BitMap.PixelFormat := pf24bit;
      for i := 0 to 255 do begin
         for y := 0 to BitMap.Height - 1 do begin
            ptr := BitMap.ScanLine[y];
            for x := 0 to ((BitMap.Width * 3) - 1) do
               if ptr[x] > 0 then ptr[x] := (ptr[x] - 1);
         end;
         Image1.Canvas.Draw(0,0,BitMap);
         Application.ProcessMessages;
      end;  finally
    BitMap.free;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  x,y,i,j: integer;
  BitMap,bitmap2 : TBitMap;
  ptr,ptr1 : PByteArray;
begin
  if GetDeviceCaps(Image1.Canvas.Handle,NUMCOLORS) <> -1 then
  begin
      ShowMessage('You must be in a high color mode to run this program');
      Close;
  end;
  BitMap := TBitMap.Create;
  bitmap2 := TBitmap.Create;
  try
      BitMap.LoadFromFile('factory.bmp');
      BitMap2.LoadFromFile('factory.bmp');
      BitMap.PixelFormat := pf24bit;
      bitmap2.pixelformat := pf24bit;
      for i:=0 to 255 do
      for y:=0 to bitmap2.height -1 do
      begin
        ptr:=bitmap2.scanline[y];
        for x := 0 to ((BitMap2.Width * 3) - 1) do
           ptr[x]:=0;
      end;
      for i := 0 to 255 do begin
         for y := 0 to BitMap2.Height - 1 do
         begin
            ptr := BitMap2.ScanLine[y];
            ptr1 := bitmap.ScanLine[y];
            for x := 0 to ((BitMap2.Width * 3) - 1) do
               if ptr[x] < ptr1[x] then ptr[x] := (ptr[x] + 1);
         end;
         Image1.Canvas.Draw(0,0,BitMap2);
         Application.ProcessMessages;
      end;  finally
    BitMap.free;
  end;end;end.

Answer 2

一楼的代码是位图的渐隐效果吧，楼主，QQ可以在98下实现渐隐效果吗，如果只能在2000/XP下面实现渐隐，那么就比较简单了

Answer 3

同意 Linux2001(我想买手提电脑啊！) ,看你在什么系统下用了,我还没有研究在98下如何淡隐淡出界面?有哪位大哥知道的?学习,UP...