【搞定】TDateTimePicker去除边框问题！！！[请求]**

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中同样代码就不可以呢？

yancm

CreateRectRgn，SetWindowRgn在Borland.Delphi.Windows 空间下。

samuel6010

这个知道，我都加了，编过了，可运行时边框还在

samuel6010

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

samuel6010

没解决那怎么封了？

yancm

可以放在BizFormShow中

samuel6010

我是在表单中建立的，不是窗体，最后要嵌入到窗体中。
表单中没有BizFormShow，只有OnCreat 和 OnDestroy，你看这个问题怎么处理？
3Q

yancm

在窗体上使用DocView.Doc可以访问到Doc上面的控件。

samuel6010

能说得详细点么？我想在表单中实现，不是在窗体中

yancm

在表单中无法实现。