磁性窗口例子,控件也类似
private
{ Private declarations }
procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure TForm1.WMMOVE(var Msg: TMessage);
begin
Inherited;
if (Left < 100) and (Top < 100) then
// 设定移动到左上角 100 点范围内时贴到屏幕的左上角去
begin
Left := 0;
Top := 0;
Msg.Result := 0;
end;
end;
private
{ Private declarations }
procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure TForm1.WMMOVE(var Msg: TMessage);
begin
Inherited;
if (Left < 100) and (Top < 100) then
// 设定移动到左上角 100 点范围内时贴到屏幕的左上角去
begin
Left := 0;
Top := 0;
Msg.Result := 0;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货