请问各位大侠：如何在delphi中实现窗口得四个边角为圆弧形？

[shacy]

在delphi中可以实现窗口得四个边角为圆弧形吗？还有，如果窗口和按钮都是由图片组成的，一般是如何确保按钮在窗口变化大小时，不出现混乱？

[gogogo2003]

//在private声明
Procedure FormMove(Var Msg : TWMNCHitTest);
Message WM_NCHITTEST;

//以下代码实现移动无标题栏窗体
Procedure TMainForm.FormMove(Var Msg : TWMNCHitTest);
begin
Inherited;
If Msg.Result = HTClient Then Msg.Result:=HTCaption;
end;

//以下代码实现圆角矩形窗体
procedure TMainForm.FormCreate(Sender: TObject);
var hd:HRgn;
begin
hd:=CreateRoundRectRgn(50,50,Width-50,Height-50,50,50);
SetWindowRgn(Handle,hd,True);
end;

[ZhouBoTong]

来晚了， ：）

[shacy]

可以提供如果窗口在变化大小时，怎样保证图片按钮也不混乱吗？提供点思路可以吗？
我原来是根据窗口尺寸定制他们的位置，虽然可行，但是我觉得应该有更好的方法。

[nyf1220]

应该不会吧！

[oicqluck]

hd:=CreateRoundRectRgn(50,50,Width-50,Height-50,50,50);
SetWindowRgn(Handle,hd,True);