......
private
{ Private declarations }
procedure wmn(var msg:twmnchittest); //移动窗体说明
message wm_nchittest;
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2,shellapi;
{$R demo6.res}
{$R *.dfm}procedure tform1.wmn(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.Result) then //移动窗体
msg.Result:=htcaption;
end;
private
{ Private declarations }
procedure wmn(var msg:twmnchittest); //移动窗体说明
message wm_nchittest;
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2,shellapi;
{$R demo6.res}
{$R *.dfm}procedure tform1.wmn(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.Result) then //移动窗体
msg.Result:=htcaption;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货