两行代码实现两个或者多个窗体的磁性吸附

来源:互联网 发布:大乐透机选软件 编辑:程序博客网 时间:2024/05/16 00:25

两行代码即可实现....两个窗体的磁性依附,,个人感觉非常好用!


[code=Delphi(Pascal)][/code]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FORM2.Left:=form1.Left+form1.Width;
  form2.Top:=form1.Top;
end;

 

就这两行代码.....