请问怎样可以移动界面？？

Question

本人把form1.borderstyl设置为Bsnone后，界面就无法移动啦，要怎样才可以移动啊？十分不想要那古老标提栏啊？？还有一个问题是如何实现运行时当edit2内容用退格键清除完内容后光标可以自己自动跳回到edit1中啊，我找过一些书都没有这方面的，，，最后还有一个问题是RadioButton1怎样可使得变透明啊？？？麻烦个位高手帮忙啦

Answer 1

procedure TMain.FormMouseMove(Sender : TObeject; Shift: TShiftState;X,Y:Inter);
begin
  if ssleft in shift then
     releasecapture;
     main.perform(WM_SYSCOMMAND,$F012,0);
end;

Answer 2

if ssleft in shift then
     releasecapture;
     perform(WM_SYSCOMMAND,$F012,0);
2。在edit2 的onchange事件里写if length(edit2.text)=0 Then
edit1.setfocus;