【搞定】关于边框问题！！！[问题]**

samuel6010

在delphi中，用
procedure TForm1.FormCreate(Sender: TObject);
var
    hRgn: THandle;
begin
    hRgn := CreateRectRgn(2, 2, DateTimePicker1.Width - 1, DateTimePicker1.Height - 1);
    SetWindowRgn(DateTimePicker1.Handle, hRgn, false);
end;
可以去掉边框，为何我在X3中同样代码就不可以呢？

在表单中FormDocCreate(Sender: TObject); 里放置如上代码不行；
但我试过在一个Button1Click(Sender: TObject);放置如上代码，必须先最小化后再把窗口还原，才能去掉边框，请问这是为什么，如何解决？
我希望一运行功能就去掉边框！
谢谢

samuel6010

没办法。
封楼