扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
unitformyd;
interface es
Windows,Messages,SysUtils,Classes,Graphics,
Controls,Forms,Dialogs,StdCtrls,ExtCtrls;
type
TForm1=class(TForm)
Timer1:TTimer;
Button1:TButton;
procedureFormCreate(Sender:TObject);
procedureTimer1Timer(Sender:TObject);
procedureButton1MouseDown(Sender:
TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:Integer);
procedureButton1MouseMove(Sender:
TObject;Shift:TShiftState;X,
Y:Integer);
procedureButton1Click(Sender:TObject);
private{Privatedeclarations}
public{Publicdeclarations}
end;
//定义全程变量
var
Form1:TForm1;
dx,dy:integer;
implementation{$R*.DFM}
//程序初始化
procedureTForm1.FormCreate(Sender:TObject);
begin
form1.borderstyle:=bsnone;
form1.height:=button1.height;
form1.width:=button1.width;
button1.top:=0;
button1.left:=0;
end;
//实时显示当前时间
procedureTForm1.Timer1Timer(Sender:TObject);
var
ds,ts,ps:string;
begin
ds:=DATE:+DateToStr(Date);
ts:=TIME:+timeToStr(time);
ps:=|__welcome__|;
button1.Caption:=ds+ps+ts;
end;
//记录鼠标当前位置
procedureTForm1.Button1MouseDown(Sender:
TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:Integer);
begin
dx:=X;
dy:=y;
IfShift=[ssright]Then
close;//右键单击退出程序
end;
//根据鼠标移动距离调整窗口位置
procedureTForm1.Button1MouseMove(Sender:
TObject;Shift:TShiftState;X,
Y:Integer);
var
mx,my:integer;
begin
IfShift=[ssleft]Then
begin
mx:=X-dx;
my:=Y-dy;
Form1.Left:=Form1.Left+mx;
Form1.Top:=Form1.Top+my;
Form1.Caption:=intToStr(X)+:+intToStr(Y);
end;
end;
end.
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。