■■■看,水波特效!!■■■ 看,水波特效!!这里下载:http://www.goomoo.net/tmp/water.rar 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function waterInit(hbmp:hbitmap):integer;stdcall;external 'waterDll.dll' name 'WaterInit';function waterMouseAction(hdc:HDC;sx,sy,mx,my,half,deep:integer):integer;stdcall;external 'waterDll.dll' name 'WaterMouseAction';function waterTimer(hdc:HDC;sx,sy:integer):integer;stdcall;external 'waterDll.dll' name 'WaterTimer';procedure TForm1.FormCreate(Sender: TObject);var a:integer;begin a:=loadImage(0,'home.bmp',image_bitmap,0,0,LR_LOADFROMFILE); waterInit(a);end;procedure TForm1.Timer1Timer(Sender: TObject);begin waterTimer(getdc(form1.Handle),0,0);end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin waterMouseAction(getdc(form1.Handle),0,0,x,y,5,80);end;end. 可不可以把water.dll的源码发上来啊,谢谢了 delphi2007 asta3的安装问题 还是delphi 类型转换问题 怎么给数据库中的图片建缩略图及水印? Delphi 版权问题 请教大家:关于三层数据库系统开发的学习? 系统功能键 如何实现程序最小化显示在右下角。 请问哪有delphi 5 开发人员指南配套程序下载? 一个两层改三层的问题? 请问:WEBBROWSER控件的NAVIGATE方法怎么提交POST数据 如何将listview中的列表信息通过quickreport报表打印出来? 请有联锁系统开发经验的看过来
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
function waterInit(hbmp:hbitmap):integer;stdcall;external 'waterDll.dll' name 'WaterInit';
function waterMouseAction(hdc:HDC;sx,sy,mx,my,half,deep:integer):integer;stdcall;external 'waterDll.dll' name 'WaterMouseAction';
function waterTimer(hdc:HDC;sx,sy:integer):integer;stdcall;external 'waterDll.dll' name 'WaterTimer';procedure TForm1.FormCreate(Sender: TObject);
var
a:integer;
begin
a:=loadImage(0,'home.bmp',image_bitmap,0,0,LR_LOADFROMFILE);
waterInit(a);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
waterTimer(getdc(form1.Handle),0,0);
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
waterMouseAction(getdc(form1.Handle),0,0,x,y,5,80);
end;end.