看了一下，有个问题：当Shape的Curvature值大点时窗体的4个角明显。


变了一下不用GDI，改用几个相关的 WinAPI。


示例

of = CREATEOBJECT("Form1")
of.show
READ EVENTS

DEFINE CLASS Form1 as Form
    Desktop = .T.
    ShowWindow = 2
    WindowType = 1
    AutoCenter = .T.
    BorderStyle = 1
    TitleBar = 0    
    BorderStyle = 0
    
    ADD OBJECT Shape1 as Shape WITH top=0,left=0,Width=this.Width,Height=this.Height,Curvature=50,BackColor=RGB(250,240,240)
    ADD OBJECT Command1 as CommandButton WITH Top=50,Left=100,Height=25,Caption="Color"
    ADD OBJECT Command2 as CommandButton WITH Top=100,Left=100,Height=25,Caption="Exit"
    
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC

    PROCEDURE Load
        DECLARE LONG SetWindowLong IN user32 LONG, LONG, LONG
        DECLARE LONG GetWindowLong IN user32 LONG, LONG
        SetWindowLong(this.hWnd, -20, BITOR(GetWindowLong(this.hWnd, -20), 0x80000))
    ENDPROC
    
    PROCEDURE Activate  
        IF EMPTY(this.Tag)
            this.Tag = "1"
            DECLARE LONG SetLayeredWindowAttributes IN User32 LONG, LONG, LONG, LONG
            SetLayeredWindowAttributes(this.HWnd, this.BackColor, 0, 1)
        ENDIF
    ENDPROC
    
    PROCEDURE Command1.Click
        thisform.Shape1.BorderColor = GETCOLOR(thisform.Shape1.BorderColor)
    ENDPROC

    PROCEDURE Command2.Click
        thisform.Release
    ENDPROC
ENDDEFINE

[ 本帖最后由 吹水佬 于 2015-10-7 16:48 编辑 ]

只见边框,没见阴影.

不象阴影

能用一个Shape，就可以再用一个，所谓的阴影就不难吧？

改成API后真的只有边框没有阴影了~~

在调整Shape的Curvature值时，同时要调整BackImg（就是用GDI填充的圆角矩形）的pnCurvature值。

“改成API后真的只有边框没有阴影了~~”，示例调用的API只是处理窗口的4个角问题，没考虑阴影的问题。
阴影问题也不难，放多几个Shape上去，设置一下各自的边框色和位置，就可得到不同类型的阴影效果，实现的代码也简单。

填充的圆角矩形不太现实，那4个角是窗口的4个角，填什么上去都是存在的。

要做得漂亮还是用图片

阴影部分需要透明才好，不透明没意思

貌似 showwindow=2时，windowtype=1无效吧