用户可以随意拖动控件位置,可以保存,要如何做

用户可以随意拖动控件位置,可以保存,要怎么做?
在鼠标拖动事件记录:每拖动一个控件 就记录控件坐标
控件一多 好像很繁琐啊


有没有其他方法

[解决办法]
有啥繁琐的，为每一个组件的鼠标事件，指定为一个，这有所有组件的鼠标事件都执行一个入口
比如
btn1.mousemove = yourmousemove;
btn2.mousemove = yourmousemove,
用来区分的就是事件中的参数sender，这个就是发出消息的那个组件
[解决办法]
把你的邮箱给我，我把Demo发给你
[解决办法]

Delphi(Pascal) code

// 例如，在Form1里创建Form2  则这样写procedure TForm1.Button1Click(Sender: TObject);const  FormDataPath = 'Form2Data.Dat';var  Form2:TForm2;begin  if FileExists(FormDataPath) then    begin      Form2:=TForm2.CreateNew(Application);      ReadComponentResFile(FormDataPath,Form2);    end  else     Form2:=TForm2.Create(nil);  Form2.ShowModal;  WriteComponentResFile(FormDataPath,Form2);  Form2.Free;end;