Readygo技术搜索引擎 网络搜索 efish 2008-1-17 2:00:27

请问怎样能改变控件的形状？

楼主missingwhat（丢失了什么呢）2003-08-05 23:26:31 在 Delphi / VCL组件开发及应用 提问

比如让按钮变成椭圆的，我不想用控件～ 问题点数：100、回复次数：4Top

1 楼huojiehai（海天子）回复于 2003-08-05 23:49:43 得分 10

找个能变椭圆的控件，研究一下它的源码就是了Top

2 楼lovedata（萨菲洛斯＆我爱娃娃）回复于 2003-08-05 23:58:07 得分 80

看看合乎你的要求吗？  
   
   
  让控件的边角圆滑起来？  
  show   controls   with   rounded   corners?  
   
   
   
  procedure   MakeRounded(Control:   TWinControl);  
   
  var  
   
      R:   TRect;  
   
      Rgn:   HRGN;  
   
  begin  
   
      with   Control   do  
   
      begin  
   
          R   :=   ClientRect;  
   
          rgn   :=   CreateRoundRectRgn(R.Left,   R.Top,   R.Right,   R.Bottom,   20,   20);  
   
          Perform(EM_GETRECT,   0,   lParam(@r));  
   
          InflateRect(r,   -   5,   -   5);  
   
          Perform(EM_SETRECTNP,   0,   lParam(@r));  
   
          SetWindowRgn(Handle,   rgn,   True);  
   
          Invalidate;  
   
      end;  
   
  end;  
   
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
   
  begin  
   
      //   TMemo:  
   
      Memo1.BorderStyle   :=   bsNone;  
   
      MakeRounded(Memo1);  
   
      //   TEdit:  
   
      Edit2.BorderStyle   :=   bsNone;  
   
      MakeRounded(Edit2);  
   
      //   TPanel:  
   
      MakeRounded(Panel1);  
   
      //   TStaticText:  
   
      MakeRounded(StaticText1);  
   
      //   TForm  
   
      Form1.BorderStyle   :=   bsNone;  
   
      MakeRounded(Form1);  
   
  end;  
  Top

3 楼failer（独败）回复于 2003-08-06 00:04:36 得分 0

学习Top

4 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2003-08-06 00:17:29 得分 10

API改变组件的外型  
   
  使用第三方现成的比较容易的Top