就是让按钮好看点 那几个角变 圆滑点

解决方案 »

  1.   

    用png图片吧,或第三方,这是最快的解决方法 
      

  2.   

    我学过的vc按钮可以自己创建的  灵活性很好啊 透明啊 圆滑啊 都可以设置的 Delphi中要怎么设置啊
      

  3.   

    用rzbitbtn按钮控件,或者皮肤控件创建按钮步骤
    var
      rb:TRzBitBtn;
    begin
      rb:=TRzBitBtn.create(self);
      rb.parent:=form1;
      rb.name:='RzbitBtn1';
      rb.left:=10;
      rb.top:=10;
    end;
      

  4.   

    给你一个函数,这个函数必须对从TWinControl下继承的控件:procedure RoundedControl(hWnd: HWND);
    {
      设置指定控件的边框为圆角矩形形状
    }
    var
      R: TRect;
      Rgn: HRGN;
    begin
      GetWindowRect(hWnd, R);
      ScreenToClient(hWnd, R.TopLeft);
      ScreenToClient(hWnd, R.BottomRight);
      rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
      SendMessage(hWnd, EM_GETRECT, 0, lParam(@r));
      InflateRect(R, -5, -5);
      SendMessage(hWnd, EM_SETRECTNP, 0, lParam(@r));
      SetWindowRgn(hWnd, rgn, True);
      InvalidateRgn(hWnd, rgn, True);
      DeleteObject(Rgn);
    end;
      

  5.   

    uses
      xpman;楼主引用这个单元试试!
      

  6.   

    偶是从tshape继承,自己画。添加fpicture可以带图片。
    不过不能接受焦点,用鼠标点可以。
      

  7.   

    这种一般都贴图的多
    带句柄我一般从TWinControl继承
    没句柄一般从TGraphicControl继承
    顶层类写控件感觉更舒服些
      

  8.   

    1.uses
      xpman;2.安裝vblskin皮膚控件...
      

  9.   

    一般选择皮肤控件
     
     XPMAN在某些机器上没效果
      

  10.   

    唉那还不如用Timage
    反正只是要一个单击事件
      

  11.   

    SuiButton 做吧 只需要改个风格就可以了