在Object Inspector里设置
BevelKind:=bkFlat;
BevelEdges:=[beButton]

解决方案 »

  1.   

    上面写错了:
    BevelEdges:=[beButtom] 
      

  2.   

    to:踢踏
    谢谢你的提醒不过还是老样子
    我是Delphi5的你用的是哪个版本的。
      

  3.   


    如果一定要这样的效果,依我这种生手,那就只好用——xxmmmx(踢踏) 的方法,然后再用3个shap盖住那3条边了,然后控制那三个shap是否显示。好笑么?
    也可以那样后再封装成自已的控件,用公开属性控制shap的显示了。
      

  4.   

    view as text添加属性
    ctl3d=false
      

  5.   

    Ctl3d := False根本不起作用,还设了 ParentCtl3D := False;呢?
    其实我大概知道怎么回事, TComboBox是由一个Edit和一个ListBox构成。
    但在TComboBox中只有FEditHandle, FListHandle两个窗体句柄,现在是
    要把FEditHandle的Ctl3D去掉。但只有一个句柄,而且已经创建好了,可能是能过
    一种什么方法改Edit窗口类吧。我现在想知道的是有没有人做过,怎么实现。
      

  6.   

    //本方法仅供参考
    //Ctrl+C下面,在设计期间的From上Ctrl+Vobject ComboBox1: TComboBox
      Left = 72
      Top = 80
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'ComboBox1'
    end
    object Panel1: TPanel
      Left = 73
      Top = 100
      Width = 144
      Height = 2
      BevelOuter = bvNone
      TabOrder = 2
    end
    object Panel2: TPanel
      Left = 73
      Top = 80
      Width = 144
      Height = 2
      BevelOuter = bvNone
      TabOrder = 3
    end
    object Panel3: TPanel
      Left = 216
      Top = 82
      Width = 6
      Height = 18
      BevelOuter = bvNone
      TabOrder = 4
    end
    object Panel4: TPanel
      Left = 68
      Top = 82
      Width = 6
      Height = 18
      BevelOuter = bvNone
      TabOrder = 5
    end