我自己写了一个组件，是一个Edit和ListBox的组合，现在我想在设计时当将该组件拖到窗体上时，ListBox自动在Edit的下面，不知该怎么做，请

我自己写了一个组件，是一个Edit和ListBox的组合，现在我想在设计时当将该组件拖到窗体上时，ListBox自动在Edit的下面，不知该怎么做，请大虾们指导指导啊

解决方案 »

  1.   

    其实就是在Create里面把相对的位置设定好啊
      

  2.   

    constructor Create
    begin
      fedit:=tedit.create..
      flistbox:=tlistbox.create..
      flistbox.top:=fedit.heigth
    end
      

  3.   

    很简单啊，在crerate 过程中listbox.top := edit.top+edit.height
    listbox.width := edit.width
    listbox.left := edit.left就可以了如果需要再加上edit.font := ...
    Listbox.font := ...
      

  4.   

    把TComboBox的Style属性改为csSimple，就是你要的控件了。
      

  5.   

    现在我要解决的是如何用程序代码实现Edit控件失去焦点