Spirit's Home

这几天学校为了迎接奥运会，举行了一场运动会，我没参加，呆在宿舍没啥事，用delphi写了一个桌面小程序"飘动的五星红旗"，来表达一下我的爱国之心。^_^

程序的实现方式为：利用image组件调用一个gif图片，隐藏窗体边框，隐藏任务栏图标，实现窗体透明.....

详细步骤：

由于image组件不支持gif、png等图片格式，所以这里用了一个第三方控件gifimage。

隐藏窗体边框实现方法：把form的 BorderStyle属性 设为：bsNone即可实现。

隐藏任务栏图标，实现窗体透明 在前面都说过，这里就不在重复了。

下面是实现用鼠标拖动窗体移动，以及实现窗体透明的代码：

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GIFImage, ExtCtrls,ShellApi, jpeg, StdCtrls, Menus, OleCtnrs;
type
  TForm1 = class(TForm)
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    PowerdbyHuKai1: TMenuItem;
    N2: TMenuItem;

    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N2Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
   Perform(WM_SYSCOMMAND,$f012,0);
end;

注：由于程序中用到的gif图片是用fireworks生成的，所以边界部分不太清晰（本人能力有限，做不出来清晰的图片^_^），本来还想在程序中集成《义勇军进行曲》，但不会实现~~~~~~~   附程序：redFlag.rar 
附一图片：飘动的五星红旗图片（程序即实现的即此效果）